Как подключиться к Msql базе

[BION]

Как то так создаем новое подключение к БД

Код: Выделить всё

Set ADO_Connect = New ADODB.Connection
With ADO_Connect
    .ConnectionString = "Provider=MSDASQL.1;Driver=MySQL ODBC 5.1 Driver;Server=localhost;user=user;pass=pass;Database=db"
    .Mode = adModeReadWrite
    .Open
End With




Возможно так точнее:

Код: Выделить всё

.ConnectionString = "DRIVER={MySQL ODBC 3.51 Driver}; SERVER=localhost; DATABASE=DB_Name; UID=username; PWD=password"

[theal]

а после установки коннектора надо его подключать из компонентов???У меня выскакивает ошибка Dim ADO_Connect As ADODB.Connection

[DeMONiZ]

Допиши в конце соединение тоже нужно закрывать я думаю
подключать надо конечно а как же....

Код: Выделить всё

ADO_Recordset.Close: Set ADO_Recordset = Nothing
ADO_Connect.Close: Set ADO_Connect = Nothing


и что за ошибка поточнее

[theal]

Допиши в конце соединение тоже нужно закрывать я думаю
подключать надо конечно а как же....

Код: Выделить всё

ADO_Recordset.Close: Set ADO_Recordset = Nothing
ADO_Connect.Close: Set ADO_Connect = Nothing


и что за ошибка поточнее

ошибка
compiler error
invalid outside procedure
А как компонент называется ,перерыл всё --невижу

[Хакер]

invalid outside procedure

Это очень показательно. Это показывает, что автор темы не только русского не знает, а ещё и в программировании нулёвый. Что тут можно поделать?

[DeMONiZ]

ну все что знал вроде сказал я тут безсилен получается.

[theal]

Ошибка run time error '-2147467259(80004005)'
[MySQL][ODBC 5.1 driver]can't connect to MYSQL server on 'mysql5.000webhost.com'

[DeMONiZ]

что то у тебя ошибки то одна то другая...вот только вроде другая была http://forum.codenet.ru/archive/index.php/t-15692.html

[DeMONiZ]

у меня вообще к тебе вопрос покажи весь свой код?
он тебе говорит что не может подконектится к майскул серверу на 'mysql5.000webhost.com'
[MySQL][ODBC 5.1 driver]can't connect to MYSQL server on 'mysql5.000webhost.com'
могу и причины подсказать

[theal]

что то у тебя ошибки то одна то другая...вот только вроде другая была http://forum.codenet.ru/archive/index.php/t-15692.html

Да извините неправильный параметр я задал..Прошлые ошибки по моей вине


im ADO_Connect As ADODB.Connection
Dim ADO_Recordset As ADODB.Recordset


Private Sub Command1_Click()
Set ADO_Recordset = New ADODB.Recordset
With ADO_Recordset
Set .ActiveConnection = ADO_Connect
.CursorLocation = adUseClient
.CursorType = adOpenKeyset
.LockType = adLockOptimistic
.Source = "SELECT * FROM a;"
.Open
End With
ADO_Recordset.Close: Set ADO_Recordset = Nothing
ADO_Connect.Close: Set ADO_Connect = Nothing
End Sub

Private Sub Command2_Click()
ADO_Recordset.MoveFirst
Textbox.Text = ADO_Recordset("1")
End Sub

Private Sub Form_Load()
Set ADO_Connect = New ADODB.Connection
With ADO_Connect
.ConnectionString = "Provider=MSDASQL.1;Driver=MySQL ODBC 5.1 Driver;Server=mysql5.000webhost.com;user=a4271923_0;pass=theal74;Database=a4271923_0"
.Mode = adModeReadWrite
.Open
End With
End Sub

[DeMONiZ]

[/code][/quote]
Возможно так точнее:

Код: Выделить всё

.ConnectionString = "DRIVER={MySQL ODBC 3.51 Driver}; SERVER=localhost; DATABASE=DB_Name; UID=username; PWD=password"

[/quote]

ты вот это читал? сделай как тут!
причины то что ты не можешь законектится скорее всего в том что ты вводишь не те параметры, пароли логины, имена баз

блин у тебя таблица в базе называется 'a' и есть поле '1' я же их для примера дал!

[DeMONiZ]

Код: Выделить всё

im ADO_Connect As ADODB.Connection
Dim ADO_Recordset As ADODB.Recordset


Private Sub Command1_Click()
Set ADO_Recordset = New ADODB.Recordset
With ADO_Recordset
Set .ActiveConnection = ADO_Connect
.CursorLocation = adUseClient
.CursorType = adOpenKeyset
.LockType = adLockOptimistic
.Source = "SELECT * FROM a;"
.Open
End With
ADO_Recordset.Close: Set ADO_Recordset = Nothing
ADO_Connect.Close: Set ADO_Connect = Nothing
End Sub

Private Sub Command2_Click()
ADO_Recordset.MoveFirst
Textbox.Text = ADO_Recordset("1")
End Sub

Private Sub Form_Load()
Set ADO_Connect = New ADODB.Connection
With ADO_Connect
.ConnectionString = "Provider=MSDASQL.1;Driver=MySQL ODBC 5.1 Driver;Server=mysql5.000webhost.com;user=a4271923_0;pass=theal74;Database=a4271923_0"
.Mode = adModeReadWrite
.Open
End With
End Sub


не знаю как вы но мне кажется что кое что ты тут еще не там поставил ищи ошибку....

[DeMONiZ]

Код: Выделить всё

im ADO_Connect As ADODB.Connection

букву d видимо при копировании не захватил!

вот это:

Код: Выделить всё

ADO_Recordset.Close: Set ADO_Recordset = Nothing
ADO_Connect.Close: Set ADO_Connect = Nothing




засунь во вторую кнопку в конец

[DeMONiZ]

Ты не думай что это готовый пример того что тебе надо это пример подключения к базе и выборки данных, но для начала не плохо разобраться бы с ним!
потом если все же у тебя не создана в базе таблица 'a' создай ты ее а то работаешь не понять с чем (существует оно или нет непонятно) потом раз уж на то пошло создай и поле '1'и впиши в него что либо, ато пустоту в текст бокс загонять так и не поймешь работает или нет. создать и записать все можешь в phpMyAdmin.

[theal]

Спасибо за помощь...разберусь а потом напишу что получится

[DeMONiZ]

можешь с php побаловать это будет выглядеть так

Код: Выделить всё

<?php
   // Данные для MySQL сервера
   $DBHost = "mysql5.000webhost.com";      // Хост
   $DBUser = "a4271923_0";      // Имя пользователя
   $DBPassword = "theal74";      // Пароль
   $DBName = "a4271923_0";      // Имя базы данных
   
   // Подключаемся к MySQL серверу
   $Link = mysql_connect($DBHost, $DBUser, $DBPassword);
   
   // Выбираем нашу базу данных
   mysql_select_db($DBName, $Link);
   
   // Добавляем запись в нашу таблицу customer
   // т.е. делаем SQL запрос
   $Query = "SELECT * FROM a";
   
   // Запрашиваем
   $Result = mysql_query($Query, $Link);
   
   while($Rows = mysql_fetch_array($Result, MYSQL_ASSOC))
   {
      printf("1:%d",
         $Rows['1']);
   }
   
   // Закрываем соединение
   mysql_close($Link);
   
?>



[theal]

можешь с php побаловать это будет выглядеть так

Код: Выделить всё

<?php
   // Данные для MySQL сервера
   $DBHost = "mysql5.000webhost.com";      // Хост
   $DBUser = "a4271923_0";      // Имя пользователя
   $DBPassword = "theal74";      // Пароль
   $DBName = "a4271923_0";      // Имя базы данных
   
   // Подключаемся к MySQL серверу
   $Link = mysql_connect($DBHost, $DBUser, $DBPassword);
   
   // Выбираем нашу базу данных
   mysql_select_db($DBName, $Link);
   
   // Добавляем запись в нашу таблицу customer
   // т.е. делаем SQL запрос
   $Query = "SELECT * FROM a";
   
   // Запрашиваем
   $Result = mysql_query($Query, $Link);
   
   while($Rows = mysql_fetch_array($Result, MYSQL_ASSOC))
   {
      printf("1:%d",
         $Rows['1']);
   }
   
   // Закрываем соединение
   mysql_close($Link);
   
?>



Этот код для страницы? cod.php к примеру?

[arvitaly]

Этот код для страницы? cod.php к примеру?

Типа того

[theal]

А что за ошибка[ADODC]NoRecordSurce Specified.[ADO]Command text was not set for the command object

[arvitaly]

Типа значит RecordSource не заполнено или не тот тип

[theal]

Типа значит RecordSource не заполнено или не тот тип

При щелчке на recordsurce открывается окно с 4 параметрами.И текст команда для SQl какую команду надо заполнять?

[arvitaly]

Ммм, я не знаю, что ты хочешь написать, напиши

Код: Выделить всё

select * from поле_дураков where дурак='theal' and Код_дурака='Хрекс-фекс-пекс'

(c)

Только перед этим создай таблицу 'поле_дураков' и в ней 3 поля ID_дурака, Дурак, Код_дурака и будет тебе счастье

[theal]

Ммм, я не знаю, что ты хочешь написать, напиши

Код: Выделить всё

select * from поле_дураков where дурак='arvitaly' and Код_дурака='Хрекс-фекс-пекс'

(c)

Только перед этим создай таблицу 'поле_дураков' и в ней 3 поля ID_дурака, Дурак, Код_дурака и будет тебе счастье

Это всё есть...С базой сокдиняется но считать не может

[arvitaly]

И текст команда для SQl какую команду надо заполнять?

То ты пишешь что не знаешь что писать, то это все есть.
Опиши проблему подробней, приложи скриншоты и ошибки.

[DeMONiZ]

theal ты проделал все что я тебе говорил? если да то показывай снова код что намудрил, потому что теоретически все что я сказал правильно и должно вроде все работать.

theal и прада получается как разговор слепого с глухим ты или нас не понимаешь или же просто не знаешь что как называется и когда говорят одно ты понимаешь совершенно другое!

[DeMONiZ]

http://sources.ru/vb/vb_mysql_lib.shtml посмотри вот это!
Пример содержит в себе библиотеку функций libmysql.dll для работы с БД MySQL. Библиотека содержит в себе все большое количество функций и привана облегчить создание приложений работающих с MySQL.
Уж с этим то ты точно разберешься!

[ala-x]

Скажите пожалуйста..При соединении с базой выскакивает ошибка libmysql.dll not found ...в преференсах такого нет файла..я его скачал но он не регистрируется...В чём проблема???

[Хакер]

в преференсах такого нет файла..

Лол. Что такое префересны?
Преферанс — это карточная игра.
Preferences — это предпочтения (от слова prefer).
References — это ссылки. Это такой пункт меню и диалог. Но, знаешь ли, в этом диалоге отображаются вовсе не файлы, а зарегистрированные TLB-шки. Так что там и не должно быть такого файла.

его скачал но он не регистрируется...

Он не регистрируется, потому что файлы не регистрируются вообще. Он не регистрируется, потому что регистрируются TLB-шки, а внутри этого файла TLB-шки нет. Он не должен регистрироваться. Это обычная библиотека, экспортирующая функция. Так что у тебя два варианта: объявлять функции с помощью Declare Function, и второе: объявить функции в TLB и подключить эту TLB через References. Я настоятельно рекомендую второй вариант.

В чём проблема???

Проблема в почти полном непонимании тобою того многих вещей. Ты не понимаешь ни что ты делаешь, ни почему, не зачем, ни, соответственно, отчего всё то, что ты делаешь, не хочет работать.

[ala-x]

а пример можно? Если не трудно..Наглядно более понятно

[Хакер]

Он издевается.

Пример чего?