Witam,
Chcę sprawdzić ilość wyciągniętych rekordów po zapytaniu a tam wartośc = -1 kod poniżej
Baza = "AAA"
Serw = "AAA"
Login = "aaa"
Haslo = "aaa"
Con.Open "Provider=SQLOLEDB.1;Persist Security Info=False;Initial Catalog=" + Baza + ";Data Source=" + Serw, Login, Haslo
Con.CommandTimeout = 300
Zapytanie1 = "select * from dane "
With Rec
Set .ActiveConnection = Con
.LockType = adLockOptimistic
.CursorLocation = adUseServer
.CursorType = adOpenForwardOnly
'Uncomment the next line with the SQLOLEDB provider to fix the error.
.Open "SET NOCOUNT ON"
End With
Rec.Open Zapytanie1, Con
Liczba rekordów jest mi potrzebna do wypisywania zawartości zapytania (for next). Co prawda poradziłem sobie za pomoca Do until rec.eof loop, ale zdziwiło mnie dlaczego RecordCount = -1.
Z góry dziękuję za pomoc |