[VB6] Copiare tabelle da un db a un altro

[fabione.net]

Ciao ho questo tipo di problema...
Ho un database access grosso che devo dividere in tanti db più piccoli secondo una logica (secondo il codice di un prodotto(chiave primaria)).
c'è un sistema veloce in vb? premetto di non essere una cintura nera ma me la cavo
Come posso fare?

[fabione.net]

per la precisione sto usando ADO e ho bisogno di copiare i dati di una tabella su un altra tabella in un altro db con la stessa struttura... come faccio?
Please...

[Melly]

Originariamente inviato da fabione.net
per la precisione sto usando ADO e ho bisogno di copiare i dati di una tabella su un altra tabella in un altro db con la stessa struttura... come faccio?
Please...

molto dipende dalla mole di dati che tratti e dal tipo di dbms che utilizzi

[fabione.net]

non è una mole di dati eccessiva... si parla di duecento record... come posso fare?

[fabione.net]

Cosa sbaglio in questo codice?


Private Sub cmdEstrai_Click()
Dim RsOrig As ADODB.Recordset
Dim RsDest As ADODB.Recordset
Dim rscodASL As ADODB.Recordset
Dim SqlASL As String
Dim Sql As String
Dim apice As String
Dim sSQL As String
apice = Chr(34)
Set rscodASL = New ADODB.Recordset
SqlASL = "select * from ASL where NomeASL=" & apice & lstASL.Text & apice
With rscodASL
.CursorLocation = adUseClient
.CursorType = adOpenStatic
.Source = SqlASL
.ActiveConnection = connOrig
.Open
End With

CodASL = rscodASL("CodASL")
rscodASL.Close
Set rscodASL = Nothing

Sql = "select * from Struttura_Ente where CodASL=" & apice & CodASL & apice
'sSQL = "Select * INTO [Struttura_Ente] In" & connDest & "from " & connOrig
'connOrig.Execute (sSQL)
'MsgBox ("fatto")
'End
Set RsOrig = New ADODB.Recordset
With RsOrig
.CursorLocation = adUseClient
.CursorType = adOpenKeyset
.Source = Sql
.ActiveConnection = connOrig
.Open
End With
Set RsDest = New ADODB.Recordset
With RsDest
.CursorLocation = adUseClient
.CursorType = adOpenKeyset
.Source = "Struttura_Ente"
.ActiveConnection = connDest
.Open
End With
RsOrig.MoveFirst
Do Until RsOrig.EOF
RsDest("Struttura_Ente_ID") = RsOrig("Struttura_Ente_ID")
End
If IsNull(RsOrig("CodiceStruttura")) = False Then
RsDest("CodiceStruttura") = RsOrig("CodiceStruttura")
Else
RsDest("CodiceStruttura") = ""
End If
RsDest("Ente_ID") = RsOrig("Ente_ID")
RsDest("Code_Struttura") = RsOrig("Code_Struttura")
RsDest("CodeTipoOsp") = RsOrig("CodeTipoOsp")
RsDest("Descrizione_Struttura") = RsOrig("Descrizione_Struttura")
RsDest("CodASL") = RsOrig("CodASL")
RsDest("Indirizzo") = RsOrig("Indirizzo")
RsDest("Provincia") = RsOrig("Provincia")
RsDest("Localita") = RsOrig("Localita")
RsDest("Codice_Postale") = RsOrig("Codice_Postale")
RsDest("Numero_Telefono") = RsOrig("Numero_Telefono")
RsDest("Numero_Fax") = RsOrig("Numero_Fax")
RsDest("ParzAutorizzata") = RsOrig("ParzAutorizzata")
RsDest("ParzTransAccreditata") = RsOrig("ParzTransAccreditata")
RsDest("Privata") = RsOrig("Privata")
RsDest("NormeVigenti") = RsOrig("NormeVigenti")
RsDest("DataStampaIst") = RsOrig("DataStampaIst")
RsDest("SupVerde") = RsOrig("SupVerde")
RsDest("SupPark") = RsOrig("SupPark")
RsDest.Update
RsDest.MoveNext
RsOrig.MoveNext
Loop
End Sub

[allejo]

Mi sembra che nel codice manca RsDest.Addnew

[fabione.net]

Un mongolo.... grazie!
A prescindere... non c'è un metodo più rapido senza dover scrivere campo a campo?

[fabione.net]

e cmq non va lo stesso... ho messo l'addnew erroneamente dimenticato ma sulla riga dell'addnew mi da un errore di runtime... method addnew failed...
ma perchè?

[allejo]

Provi così

Dim RsDest As ADODB.Recordset
Set RsDest = New ADODB.Recordset

[fabione.net]

a me sembra ci sia già...