Hallo zusammen,
irgendwie kriege ich das hier nicht hin. Ich habe eine "stored procedurs" von SQL und möchte die in VBA unter ACAD 2004 starten, sodas ein RsT mit dem Inhalt der Tabelle gefüllt wird. Das Ergebnis (n Recordcount) sollte 69 sein, ist aber -1????
Hier der Code, vielleicht weiß ja einer was, was ich falsch gemacht habe:
Dim Con1 As New ADODB.Connection
Dim Cmd As New ADODB.Command
Dim RsT As New ADODB.Recordset
Con1.Provider = "SQLOLEDB.1"
Con1.Properties("Data Source") = "DATABASE04"
Con1.Properties("Initial Catalog") = c_database
Con1.Properties("Integrated Security") = "SSPI"
Con1.Open
Set Cmd.ActiveConnection = Con1
Cmd.CommandType = adCmdStoredProc
Cmd.CommandText = "usp_read_all_Artikelgruppen"
Set RsT = Cmd.Execute
Dim n As Long
n = RsT.RecordCount
Debug.Print n
RsT.MoveFirst
Dim INDEX As Long
For INDEX = 1 To n
Typfrmset.AddItem RsT.Fields(TBSpalte)
RsT.MoveNext
Next
------------------
cu
Heiko
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP