Подскажите как в visual basic 2005 отправить запрос в mysql и извлечь информацию из нужной ячейки в таблице?

Cnn = New ADODB.Connection
Rec = New ADODB.Recordset
Cmd = New ADODB.Command

strConn = "DRIVER=MySQL ODBC 5.1 Driver;SERVER=localhost;DataBase=test;UID=root;PWD=BazaFS_s"

Cnn.ConnectionString = strConn
Cnn.Open()

Rec = New ADODB.Recordset
Rec = Cnn.Execute("SELECT * FROM test2")

Do While Not Rec.EOF
DataGridView1.DataSource = Rec
Rec.MoveNext()
Loop

Rec.Close() : Rec = Nothing
Cnn.Close() : Cnn = Nothing

Даже если вывести всю таблицу в DataGridView1, ничего не произойдет. Что делать?

Visual basic 2005!!! Никакой не 6! Все отлично с синтаксисом

В 2005 не поддерживается уже set. Он устарел. Да и вообще 6 устарел.

adUseClient - не идет. Пишет не обьявлено.

rs.Open("SELECT ID FROM test2 where id=2", Cnn)
выдало ошибку...
В экземпляре объекта не задана ссылка на объект.

((( Ужас. Вроде обычная БД, а обращатся так тяжело

Dim Cnn = New ADODB.Connection
Dim Rec = New ADODB.Recordset
Dim Cmd = New ADODB.Command

strConn = "DRIVER=MySQL ODBC 5.1 Driver;SERVER=localhost;DataBase=test;UID=root;PWD=BazaFS_s"

Cnn.ConnectionString = strConn
Cnn.Open()

rs.Open("SELECT ID FROM test2 where id=2", Cnn)
T1.Text = rs
T1.Text = rs.Fields.Count

'====== Если вывести попробовать одну ячейку в текстбокс, выдает не найдена ссылка на объект... а если так:


Rec = Cnn.Execute("SELECT ID FROM test2 where id=2")

Do While Not Rec.EOF
DataGridView1.DataSource = Rec
Rec.MoveNext()
Loop

Rec.Close() : Rec = Nothing
Cnn.Close() : Cnn = Nothing

'====== Тогда дата остается пустой. Ничего не заполняется. Но мне лучше не со всей таблицей работать, а с отдельными ячейками... и ничего не получается.
'====== rs.Open(strquery, conn) ошибка. strquery - не задана...

Вот если такой код:


Dim Cnn = New ADODB.Connection
Dim Rec = New ADODB.Recordset
Dim Cmd = New ADODB.Command

strConn = "DRIVER=MySQL ODBC 5.1 Driver;SERVER=localhost;DataBase=test;UID=root;PWD=BazaFS_s"

Cnn.ConnectionString = strConn
Cnn.Open()

Rec = Cnn.Execute("SELECT ID FROM test2")
Do While Not Rec.EOF
ListBox1.Items.Add(Rec)
Rec.MoveNext()
Loop

Rec.Close() : Rec = Nothing
Cnn.Close() : Cnn = Nothing


Тогда в листбокс добавляет заместо числа какой то System.__ComObject
Что делать с ним, и как перевести его в число, понятия не имею

List1.AddItem rec.Fields("ID").Value - это помогло!!! СПАСИБО! :):):)