Opret tabel via modul
HejsaJeg har for at kunne omgå et problem med ODBC og Windows XP blevet nødt til at "tale" med min externe db gennem et modul.
Kort og godt så er det jeg vil at få fat i tabellen notes fra den externe DB og kopier indholdet over i Access i en tabel notes1.
Uddybning:
Jeg opretter altså forbindelse til en extern DB gennem dette modul (noget kode som jeg har fået af Microsoft):
-----------------------------------
Function LinkTable()
On Error GoTo ErrorHandler
Dim ODBCConnection As ADODB.Connection
Dim QDef As QueryDef
Dim DB As Database
Set DB = CurrentDb()
Set ODBCConnection = New ADODB.Connection
ODBCConnection.ConnectionString = "Data Source='DNS';"
ODBCConnection.Open
Set QDef = DB.CreateQueryDef("DebTable")
QDef.Connect = "ODBC;DSN=DNS"
QDef.SQL = "Select * From Notes"
QDef.ReturnsRecords = True
ODBCConnection.Close
Set ODBCConnection = Nothing
Exit Function
ErrorHandler:
' clean up
If Not ODBCConnection Is Nothing Then
If ODBCConnection.State = adStateOpen Then ODBCConnection.Close
End If
Set ODBCConnection = Nothing
If Err <> 0 Then
MsgBox Err.Source & "-->" & Err.Description, , "Error"
End If
End Function
---------------------------------------
Men dette kode opretter en forespørgsel i min Access ved navn "Notes" (jeg kører modulet gennem en Macro).
Jeg vil gerne at når jeg kører funktionen, at indholdet så kopieres fra notes (i den externe DB) over i min tabel notes1.
I SQL vil det vel se sådan her ud:
------------------------------------
insert into Notes1(RowNumber, LastChanged, NotesFileId, NotesRecId, LineNumber, Txt, User_, RecID, FileID) select * from Notes
------------------------------------
Er det klart hvad problemet er?
