J
Joe
Hello all,
as title.Below is my code,but it dosen't work.
Any hints would be greatly appreciated,
================================================================
Private Sub Command0_Click()
Dim conn1 As New ADODB.Connection
Dim rst1 As New ADODB.Recordset
Dim conString1 As String
Dim sql As String
'connect Oracle
conString1 = "Provider=MSDAORA;Data Source=oracle;User
Id=Myid;Password=Mypwd"
conn1.Open conString1
sql = "SELECT * INTO [INV] IN 'D:\access-oracle\LCM_ADO.mdb;User
Id=admin;pwd=''Access' FROM INV.MTL_SECONDARY_INVENTORIES "
conn1.Execute sql
conn1.Close
Set conn1 = Nothing
Set rst1 = Nothing
End Sub
================================================================
Joe
as title.Below is my code,but it dosen't work.
Any hints would be greatly appreciated,
================================================================
Private Sub Command0_Click()
Dim conn1 As New ADODB.Connection
Dim rst1 As New ADODB.Recordset
Dim conString1 As String
Dim sql As String
'connect Oracle
conString1 = "Provider=MSDAORA;Data Source=oracle;User
Id=Myid;Password=Mypwd"
conn1.Open conString1
sql = "SELECT * INTO [INV] IN 'D:\access-oracle\LCM_ADO.mdb;User
Id=admin;pwd=''Access' FROM INV.MTL_SECONDARY_INVENTORIES "
conn1.Execute sql
conn1.Close
Set conn1 = Nothing
Set rst1 = Nothing
End Sub
================================================================
Joe