G
Gez
Is there an easy way of appending one ADO table saved as a recordset file to
another saved within the access DB using SQL e.g.
Dim conn1 As ADODB.Connection
Dim conn2 As ADODB.Connection
Dim rst1 As ADODB.Recordset
Dim rst2 As ADODB.Recordset
If importDialog = False Then Exit Function ' gets the rs file name and path
and saves to global called strfilename
Set conn1 = New ADODB.Connection
conn1 = CurrentProject.Connection
Set conn2 = New ADODB.Connection
With conn2
.Provider = "Microsoft.Jet.OLEDB.4.0"
.ConnectionString = "data source=" & strfilename
.Mode = adModeReadWrite
End With
strsql = "Insert Into ADOTable1 Select * from ADOTable2" < -- this is the
bit I'm stuck on!
Thanks,
Geraint
another saved within the access DB using SQL e.g.
Dim conn1 As ADODB.Connection
Dim conn2 As ADODB.Connection
Dim rst1 As ADODB.Recordset
Dim rst2 As ADODB.Recordset
If importDialog = False Then Exit Function ' gets the rs file name and path
and saves to global called strfilename
Set conn1 = New ADODB.Connection
conn1 = CurrentProject.Connection
Set conn2 = New ADODB.Connection
With conn2
.Provider = "Microsoft.Jet.OLEDB.4.0"
.ConnectionString = "data source=" & strfilename
.Mode = adModeReadWrite
End With
strsql = "Insert Into ADOTable1 Select * from ADOTable2" < -- this is the
bit I'm stuck on!
Thanks,
Geraint