Zotty
23-10-08, 16:36
Hallo,
ich möchte aus einer Datei von der AS400 die Daten direkt auslesen. Bisher habe ich es über ein Query und dann per Datenübertragung in eine Exeldatei übertragen. Diesen Schritt möchte ich umgehen. Habe auch schon was probiert bekomme aber leider einen Fehler.
CODE:
Sub test()
Dim db As DAO.Database
Dim rs As Recordset
Dim sql$
sql = (" SELECT BIMSCH.ASMKSN, BIMSCH.EELIME01, BIMSCH.TEXT FROM S44F1576.RUDQRYR710.BIMSCH BIMSCH")
Dim sConn As String
sConn = "ODBC;DSN=RUDQRYR710"
Set db = DBEngine.OpenDatabase(sConn & ";Data Source=RUDQRYR710.Bimsch", dbDriverNoPrompt, False, sConn)
' hier kommt der Fehler 3078
Set rs = db.OpenRecordset(Bimsch)
Tabelle1.Range("A1").CopyFromRecordset rs
rs.Close
db.Close
End Sub
Welcher Eintrag ist hier falsch.
Mit dem Überwachungsfenster sehe ich die Datei (inhalt der Feldern)
Habe es auch mit ADODB und DAO probiert. Leider kein Erfolg Fehlermeldung.:confused:
Wäre über eine Hilfe sehr dankbar
;)
Zotty
ich möchte aus einer Datei von der AS400 die Daten direkt auslesen. Bisher habe ich es über ein Query und dann per Datenübertragung in eine Exeldatei übertragen. Diesen Schritt möchte ich umgehen. Habe auch schon was probiert bekomme aber leider einen Fehler.
CODE:
Sub test()
Dim db As DAO.Database
Dim rs As Recordset
Dim sql$
sql = (" SELECT BIMSCH.ASMKSN, BIMSCH.EELIME01, BIMSCH.TEXT FROM S44F1576.RUDQRYR710.BIMSCH BIMSCH")
Dim sConn As String
sConn = "ODBC;DSN=RUDQRYR710"
Set db = DBEngine.OpenDatabase(sConn & ";Data Source=RUDQRYR710.Bimsch", dbDriverNoPrompt, False, sConn)
' hier kommt der Fehler 3078
Set rs = db.OpenRecordset(Bimsch)
Tabelle1.Range("A1").CopyFromRecordset rs
rs.Close
db.Close
End Sub
Welcher Eintrag ist hier falsch.
Mit dem Überwachungsfenster sehe ich die Datei (inhalt der Feldern)
Habe es auch mit ADODB und DAO probiert. Leider kein Erfolg Fehlermeldung.:confused:
Wäre über eine Hilfe sehr dankbar
;)
Zotty