Avatar billede kimlarsen1978 Nybegynder
24. marts 2004 - 14:43 Der er 1 løsning

Opret tabel via modul

Hejsa
Jeg 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?
Avatar billede kimlarsen1978 Nybegynder
24. marts 2004 - 14:50 #1
UPS en kodefejl
Se her i stedet for: http://www.eksperten.dk/spm/481389
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Dyk ned i databasernes verden på et af vores praksisnære Access-kurser

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester