Модераторы: gambit
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> VB2005+MySQL, Не могу приконектиться к MySQL 
:(
    Опции темы
Adanedel
Дата 14.1.2008, 16:37 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 23
Регистрация: 14.1.2008

Репутация: нет
Всего: нет



Установил одбс, базу видит, но на последнем шаге подключения говорит об ошибке чтения схемы таблицы. Подскажите как исправить ошибку или если есть код для конекта к MySQL, заранее благодарен!
PM MAIL   Вверх
Adanedel
Дата 14.1.2008, 17:51 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 23
Регистрация: 14.1.2008

Репутация: нет
Всего: нет



все, сам разобрался) если кому интересно могу выложить код
PM MAIL   Вверх
derek
Дата 23.1.2008, 04:32 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 124
Регистрация: 16.7.2006

Репутация: нет
Всего: нет



выложи
PM MAIL   Вверх
Adanedel
Дата 7.7.2008, 07:55 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 23
Регистрация: 14.1.2008

Репутация: нет
Всего: нет



        Dim i As Integer
        Dim query As String

        'MyODBC 3.51 connection string
        Dim MyConString As String = "DRIVER={MySQL ODBC 3.51 Driver};" & _
            "SERVER=localhost;" & _
            "DATABASE=testing;" & _
            "UID=root;" & _
            "PASSWORD=;" & _
            "OPTION=3;"
        'Connection
        Dim MyConnection As New Odbc.OdbcConnection(MyConString)
        Dim MyCommand As New Odbc.OdbcCommand("select * from my_vb_net", MyConnection)
        MyCommand.Connection.Open()
        MyCommand.ExecuteNonQuery()
        For i = 1 To 5
            query = "insert into my_vb_net values(" + CStr(i) + ",'mysql')"
            MyCommand.CommandText = query
            MyCommand.ExecuteNonQuery()
        Next i
        MyCommand.CommandText = "select * from my_vb_net"
        MyCommand.ExecuteNonQuery()
        Dim myDataReader As Odbc.OdbcDataReader
        myDataReader = MyCommand.ExecuteReader
        While myDataReader.Read
            ComboBox1.Items.Add(myDataReader("name"))


        End While
        MyConnection.Close()
PM MAIL   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Прежде чем создать тему, посмотрите сюда:
stab
mr.DUDA
Exception

Используйте теги [code=csharp][/code] для подсветки кода. Используйтe чекбокс "транслит" если у Вас нет русских шрифтов.

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, stab, mr.DUDA, Exception.

 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Базы данных под .NET | Следующая тема »


 




[ Время генерации скрипта: 0.0513 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.