Код:
- Код: Выделить всё
Dim Rs As ADODB.Recordset
Set Rs = New ADODB.Recordset
Rs.CursorLocation = adUseClient
Dim Q As String
Q = "SELECT SUM(`groupid`) as `sex` FROM `groups` ;"
Rs.Open Q, SQL, adOpenStatic 'и вот здесь мы вылетаем
Set Rs = Nothing
Выдает вот такую бяку:
--
Run-time Error '-2147217885 (80040e21)';
Произошли ошибки во время выполнения многошаговой операции.
Проверьте значения всех состояний.
--
Че ето ваще за ....
MySQL + VB6
как исправить?
Пасиба.
