title image


Smiley ReturnsRecords in SQL-Pass-Through Abfrage?
hallo forum,

mit dem besipiel von http://support.microsoft.com/kb/304323/en-us kann ich mir über vba eine sql-pass-through erstellen.

---------------------------------------------------------------

Function CreateSPT(SPTQueryName As String, strSQL As String)



Dim cat As ADOX.Catalog

Dim cmd As ADODB.Command



Set cat = New ADOX.Catalog

Set cmd = New ADODB.Command



cat.ActiveConnection = CurrentProject.Connection



Set cmd.ActiveConnection = cat.ActiveConnection



cmd.CommandText = strSQL

cmd.Properties("Jet OLEDB:ODBC Pass-Through Statement") = True



'Modify the following connection string to reference an existing DSN



cmd.Properties("Jet OLEDB:Pass Through Query Connect String") = "ODBC;DRIVER={MySQL ODBC 3.51 Driver};DESC=;DATABASE=xyz;SERVER=www.server.de;UID=xyz;PASSWORD=zyx;PORT=;OPTION=10;STMT=;"

cat.Procedures.Append SPTQueryName, cmd



Set cat = Nothing

Set cmd = Nothing



End Function

------------------------------------------------------

nun gibt es aber noch probs mit der ReturnsRecords-eigenschaft. diese ist standardmäßig auf TRUE eingestellt. bei einem UPDATE gibt es eine fehlermeldung beim ausführen der abfrage.



meine frage:

wo bzw. wie kann ich in dem obigen beispiel die ReturnsRecords eigenschaft auf FALSE stellen?




Vielen Dank für Eure Tipps!

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: