| 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
 |