|
| Hallo zusammen,
ich habe hier ein kleine Problem woran ich jetzt schon 2 Tage sitzte.
Ich möchte gern aus einer DB2 Datenbank per ODBC ,Daten in eine lokale Tabelle (Access) anfügen die über ein SQL abgefragt werden.
externe DB: Tabelle = "Artikelstamm"
Access: Tabelle = "Tabelle1"
Folgenden Code habe ich bereits geschrieben:
Option Compare Database
Public DBODBC As New ADODB.Connection
Private Sub Database()
Dim strSQL As String
Dim RS As Recordset
Const host_user As String = "USER"
Const host_pwd As String = "PW"
host_ip = "192.168.1.1"
library = "LIBERY"
ODBCConn = "DRIVER={iSeries Access ODBC Driver};UID=" & host_user & ";PWD=" & host_pwd & ";SYSTEM=" & host_ip & ";DBQ=" & library & ";DFTPKGLIB=QGPL;LANGUAGEID=ENU;PKG=QGPL/DEFAULT(IBM),2,0,1,0,512;SIGNON=1"
DBODBC.ConnectionString = ODBCConn
DBODBC.Open
strSQL = "INSERT INTO Tabelle1 Artikel " & _
"SELECT A1.Artikel.Kst " & _
"FROM Artikelstamm A1 '"
DBODBC.Close
End Sub
Leider funktioniert das nicht so wie ich es mir vorstelle, für einen Tip wäre ich sehr dankbar.
Grüße
Indy
| |
|
VBA externe Datenbank Abfragewerte an Tabelle anfügen