---

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

---

Hallo Heiko,

suche gerade nach Artikeln für mein Problem.

Hier vielleicht die Lösung für deines:

Code:

---

Set adoCon = New ADODB.Connection
conStr = "Provider=MSDASQL.1;Persist Security Info=False;Data Source=dBASE-Dateien;Initial Catalog=e:\leg"
adoCon.CursorLocation = adUseClient
adoCon.ConnectionString = conStr
adoCon.Open

---

Die Recordcount Eigenschaft wird nur abgefüllt wenn
die Cursorlocation beim Client liegt.
Muss auch beim Recordset eingestellt werden.

Stelli1

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

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP