AnTko
Member | Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
БД MySQL 5.0. ODBC драйвер установлен, ссылки прописаны
Dim conn As ADODB.Connection
Dim rs As ADODB.recordset
Dim test As Field
Set conn = New ADODB.Connection
Set rs = New ADODB.Recordset
conn.ConnectionString = "DRIVER={MySQL ODBC 3.51 Driver};SERVER=yyy;DATABASE=zzz;UID=xxx;PWD=uuu;OPTION="&1+2+8+32+2048+16384
conn.Cursorlocation = adUseServer
conn.Mode = adModeRead
conn.Open
попытка выполнить вот этот запрос:
rs.Open "SELECT round(sum(bytes)/1024) as test FROM log WHERE (LEFT(time,7)=(SELECT LEFT(NOW(),7)))",conn
Text1.Text = rs!test
заканчивается на ошибку "3021" - "BOF или EOF имеет значение True, либо текущая запись удалена. Для выполнения операции требуется текущая запись"
Если сделать вот так:
Text1.Text = rs.Fields.Count
то в текстовом поле рисуется цифра "1" - одна запись, все правильно...
Где что подправить надо, чтобы в текстовом поле Text1.Text получить заветную сумму данных из поля bytes?
Да, мопед не мой, я просто... Ну, вы знаете. Приятель спросил, а я в VB до такой степени не разбираюсь. Need Help, короче...
----------
Не мы такие - жизнь такая... |
|
Всего записей: 347 | Зарегистр. 12-10-2001 | Отправлено: 15:22 02-04-2008 | Исправлено: AnTko, 15:23 02-04-2008 |
|
К сожалению я в Visual Basic не сильна... Благодарю!