Problemi nel trasferire record da access a mysql

[Mizushi]

Ciao.

Periodicamente devo trasferire dei dati contenuti in una tbl access ad una identica tbl contenuta invece in mysql.

Lo script ASP mi va in errore:

Response object error 'ASP 0251 : 80004005' 
Response Buffer Limit Exceeded 
/s_conn.asp, line 0 
Execution of the ASP page caused the Response Buffer to exceed its configured l

I campi delle due tabelle sono indicizzati.

Presumo per la mole di dati contenuti nella tbl access più di un milione di record... lo script è questo, cosa posso fare?

   Set cn = Server.CreateObject("ADODB.Connection")
   cn.Open "DRIVER={MySQL ODBC 5.1 Driver};SERVER=localhost;PORT=3306;DATABASE=db_mysql;USER=root;PASSWORD=XXXXXX;OPTION=3;"   

   Set conn = Server.CreateObject("ADODB.Connection")
   OpenStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\Inetpub\wwwroot\mdb-database\DB_ACCESS.mdb;Persist Security Info=False"
   conn.Open openStr

   SQL = " SELECT * FROM "
   SQL = SQL & " tbl_access "
   SQL = SQL & " WHERE "
   SQL = SQL & " ( "
   SQL = SQL & " EST LIKE '%DI%' "
   SQL = SQL & " OR "
   SQL = SQL & " EST LIKE '%DM%' "
   SQL = SQL & " OR "
   SQL = SQL & " EST LIKE '%DS%' "
   SQL = SQL & " ) "   
   response.write SQL & "
"
   Set objRs = Server.CreateObject("ADODB.Recordset")
   objRs.Open SQL, conn, 3, 3
   
   if not objRs.eof then    
   do while not objRS.eof
     
   query_select = "SELECT * FROM "
   query_select = query_select & " tbl_mysql "
   query_select = query_select & " WHERE "
   query_select = query_select & " COD = '" & objRs("Cod") & "' " 
   response.write query_select & "
"

   set Rs = Server.CreateObject("ADODB.Recordset")
   Rs.Open query_select, cn
   
   if Not Rs.eof then   
      response.write Rs("COD") & "
"    
   end if

   Rs.Close()
   Set Rs = Nothing   
   
   objRS.movenext()
   Loop

   end if

   objRs.Close()
   Set objRs = Nothing   

   conn.Close()
   Set conn = Nothing

   cn.Close()
   Set cn = Nothing

[optime]

metti un response.flush dopo response.write

[Mizushi]

Originariamente inviato da optime
metti un response.flush dopo response.write

Grazie!

[Mizushi]

Cmq rimane il fatto che quando parte questo script il server rallenta da paura per la mole di dati da processare.... qualche suggerimento per velocizzare ed alleggerire l'esecuzione di questo script?

[Alethesnake]

Di sicuro asp non è il mezzo migliore per questo tipo di operazioni.
Potresti provare con un linked server su mysql (se li supporta) o con una tabella collegata su access, magari vai più veloce.

[Mizushi]

Originariamente inviato da Alethesnake
Di sicuro asp non è il mezzo migliore per questo tipo di operazioni.
Potresti provare con un linked server su mysql (se li supporta) o con una tabella collegata su access, magari vai più veloce.

Grazie, ma non ho capito... puoi spiegarti meglio?

[Alethesnake]

Cio' che intendo è che puoi creare un linked server (se è possibile, devi cercare su mysql.com. Inoltre devi vedere se ne hai i privilegi) da mysql verso access e far girare uno script su mysql di:

INSERT INTO..
SELECT FROM..

Oppure puoi provare a creare su access una tabella collegata a quella di mysql, e lanciare la insert/select su access.

[Mizushi]

Originariamente inviato da Alethesnake
Cio' che intendo è che puoi creare un linked server (se è possibile, devi cercare su mysql.com. Inoltre devi vedere se ne hai i privilegi) da mysql verso access e far girare uno script su mysql di:

INSERT INTO..
SELECT FROM..

Oppure puoi provare a creare su access una tabella collegata a quella di mysql, e lanciare la insert/select su access.

OK ho verificato che mysql supporta il linked server.

Ho già fatto una prova ad esportare in mysql la tabella access da cui deve avvenire l'aggiornamento e funziona correttamente ... e adesso?

[Alethesnake]

Originariamente inviato da Mizushi

... e adesso?

Beh, adesso dovresti dirlo tu cosa devi fare

Che codice hai usato fino ad oggi per effettuare il trasferimento?

Quali sono le tabelle sorgente e target?

[Mizushi]

Si è vero...

Il nuovo codice ASp è questo, in cui tbl_access è la tabella da cui si deve aggiornare la tbl_mysql, ma lanciato dal web è la solita infinita operazione....:

   Set cn = Server.CreateObject("ADODB.Connection")
   cn.Open "DRIVER={MySQL ODBC 5.1 Driver};SERVER=localhost;PORT=3306;DATABASE=db_mysql;USER=root;PASSWORD=XXXXXX;OPTION=3;"   

   SQL = " SELECT * FROM "
   SQL = SQL & " tbl_access "
   SQL = SQL & " WHERE "
   SQL = SQL & " ( "
   SQL = SQL & " EST LIKE '%DI%' "
   SQL = SQL & " OR "
   SQL = SQL & " EST LIKE '%DM%' "
   SQL = SQL & " OR "
   SQL = SQL & " EST LIKE '%DS%' "
   SQL = SQL & " ) "   
   response.write SQL & "
"
   response.flush()

   Set objRs = Server.CreateObject("ADODB.Recordset")
   objRs.Open SQL, cn
   
   if not objRs.eof then    
   do while not objRS.eof
     
   query_select = "SELECT * FROM "
   query_select = query_select & " tbl_mysql "
   query_select = query_select & " WHERE "
   query_select = query_select & " COD = '" & objRs("Cod") & "' " 
   response.write query_select & "
"
   response.flush()

   set Rs = Server.CreateObject("ADODB.Recordset")
   Rs.Open query_select, cn
   
   if Not Rs.eof then   
      SQL="INSERT INTO tbl_mysql .... "    
   end if

   Rs.Close()
   Set Rs = Nothing   
   
   objRS.movenext()
   Loop

   end if

   objRs.Close()
   Set objRs = Nothing   

   cn.Close()
   Set cn = Nothing