[ODBC] AS/400 INSERT INTO commando

[ruthger]

Ik moet grote hoeveelheden records overzetten van een Access database naar een AS/400. Hiervoor gebruikte het volgende command

code:

  Set rstTemp = New ADODB.Recordset
  strConnection = "[ODBC;DSN=AS400;UID=user;PWD=password";DATABASE=lib]"
  
  strCommand = "INSERT INTO " & strConnection & ".AS400TABLE" & _
               "  SELECT * FROM AccessTable"
  Set rstTemp = CurrentProject.Connection.Execute(strCommand)

Maar nu wil ik een DSN-less connection gebruiken. Via een ADODB.Connection gaat dit goed. Maar via de onderstaande code niet.

code:

  Set rstTemp = New ADODB.Recordset
  strConnection = "[ODBC;Driver={Client Access ODBC Driver (32-bit)};" & _
                   "SYSTEM=AS400;UID=user;PWD=password;DATABASE=lib]"  

  strCommand = "INSERT INTO " & strConnection & ".AS400TABLE" & _
               "  SELECT * FROM AccessTable"
  Set rstTemp = CurrentProject.Connection.Execute(strCommand)

Foutmelding :
Fout -2147467259 (80004005) tijdens uitvoering:
Niet nader omschreven fout.

Weet misschien iemand wat ik fout doe??

[ Voor 7% gewijzigd door ruthger op 09-06-2004 13:24 ]

[Verwijderd]

probeer het eens zonder ODBC; ??

edit: Mist ook een " voor het [ODBC; !!!!!

[ Voor 42% gewijzigd door Verwijderd op 09-06-2004 13:21 ]

[ruthger]

Zonder ODBC?? Bedoel je het stukje tekst ODBC?? Dat voor deze constructie verplicht.

[ruthger]

Code is voorbeeld. In het orgineel is het " wel aanwezig.
Bericht is aangepast.

[justmental]

komt vaker voor zo te zien:
http://www.tek-tips.com/g...ev3/30/pid/194/qid/447213

(gevonden via: http://www.google.nl/sear...nspecified+error+as%2F400 )

[ruthger]

Timing kan geen probleem zijn. Met de DSN driver gaat het ook goed. Zo wie zo kan ik geen pause in een INSERT INTO commando maken.

[Verwijderd]

Ruthger schreef op 09 juni 2004 @ 13:23:
Zonder ODBC?? Bedoel je het stukje tekst ODBC?? Dat voor deze constructie verplicht.

Ik heb geen specifieke constructie gezien voor AS/400, maar bij alle ODBC dingen bij http://www.connectionstrings.com staat nergens ODBC; bij.

Y

edit:

http://www.able-consultin...DBProviderForAS400AndVSAM

misschien op dit URL nog iets van info

[ Voor 19% gewijzigd door Verwijderd op 09-06-2004 14:10 . Reden: url erbij ]

[ruthger]

Ik heb de fout gevonden. In DSN settings het ik Commitment Controle uitgezet. Dit moet dan natuurlijk ook en de DSN-Lees connection. (CMT=0)

code:

  Set rstTemp = New ADODB.Recordset
  strConnection = "[ODBC;Driver={Client Access ODBC Driver (32-bit)};" & _
                   "SYSTEM=AS400;UID=user;PWD=password;DBQ=lib;CMT=0]"  

  strCommand = "INSERT INTO " & strConnection & ".AS400TABLE" & _
               "  SELECT * FROM AccessTable"
  Set rstTemp = CurrentProject.Connection.Execute(strCommand)

Voor een INSERT INTO commando via twee verschillende databases gebruik je [ODBC; stukje om aan te geven dat het om een nieuwe ODBC verbinding gaat.

[ Voor 20% gewijzigd door ruthger op 09-06-2004 14:30 ]