VBNet - Форум - База данных mysql

Вопрос: База данных mysql Добавлено: 01.07.03 04:42

Автор вопроса: admsasha | Web-сайт: dansoft.krasnokamensk.ru | ICQ: 234002454

Как связаться с базой(mysql) на сервере. и получить данные.
Мне кажется это делается через Microsoft ADO Data Control.
Но я незнаю как !
Поисните по шагам, пожалуйста !!

Ответить

Ответы Всего ответов: 11

Номер ответа: 1
Автор ответа:

denver_t

Вопросов: 8
Ответов: 25

Профиль | Цитата | #1

Добавлено: 01.07.03 07:51

Тебе надо скачать вот эту шнягу ODBC for MySQL отсЕдава: http://www.mysql.com/downloads/api-myodbc.html , тогда всё красиво подключается, у самого работает.

И вообще зачем, по твоему, добрые люди сделали RAMBLER, GOOGLE, ALTAVISTA ????

Ответить

Номер ответа: 2
Автор ответа:

admsasha

ICQ: 234002454

Вопросов: 56
Ответов: 69

Web-сайт: dansoft.krasnokamensk.ru
Профиль | Цитата | #2

Добавлено: 01.07.03 08:32

Скачал !

А дальше что ?

Как его использовать ?

Ответить

Номер ответа: 3
Автор ответа:

denver_t

Вопросов: 8
Ответов: 25

Профиль | Цитата | #3

Добавлено: 01.07.03 10:46

хех, скачал - устанавливай .....

у тебя в драйверах ODBC появится ещё одна замись по поводу MySQL.... и, допустим, через компанент ADODC1 на форме можно подключатся к базе ...

Ответить

Номер ответа: 4
Автор ответа:

Geo

ICQ: 81917030

Вопросов: 15
Ответов: 17

Профиль | Цитата | #4

Добавлено: 02.07.03 19:31

Если ОДБИСИ драйвер для МиСКЛ установил, то далее можно использовать приблизительно следующий код

' обьявляем переменные

Dim mySQL_conn As New ADODB.Connection

Dim mySQL_rs As New ADODB.Recordset

Dim cmd1 As New ADODB.Command

' делаем коннект к заранее установленному СИСТЕМНОМУ ДСН

' (если не знаешь как то пиши)

mySQL_conn.Open "DSN=system_dsn_name_for_mysql_db"

Set cmd1.ActiveConnection = mySQL_conn

cmd1.CommandText = "ну типа твой SQL запрос"

' выполням

cmd1.Execute

' thats all guy

Ответить

Номер ответа: 5
Автор ответа:

admsasha

ICQ: 234002454

Вопросов: 56
Ответов: 69

Web-сайт: dansoft.krasnokamensk.ru
Профиль | Цитата | #5

Добавлено: 03.07.03 03:10

на строке mySQL_conn.Open "DSN=system_dsn_name_for_mysql_db"

пишет ошибку [Microsoft][ODBC Driver Manager] Data source name not found and no default driver specified

Можете прислать готовый пример. Очень прошу.

Ответить

Номер ответа: 6
Автор ответа:

Geo

ICQ: 81917030

Вопросов: 15
Ответов: 17

Профиль | Цитата | #6

Добавлено: 03.07.03 12:01

В строке

mySQL_conn.Open "DSN=system_dsn_name_for_mysql_db" вместо system_dsn_name_for_mysql_db нужно указать свой DSN. Делаешь так Пуск - Настрийка - Панель управления - Администрирование - ИсточникДанных ODBC. Появиться окно "ODBC Data Sourse Administrator" выбираешь вкладку 'System DSN', кнопку Add... Далее выбираешь драйвер для MySQL и ГОТОВО. Далее можно по ссылке http://www.mysql.com/doc/ru/ODBC.html и если что пиши.

Ответить

Номер ответа: 7
Автор ответа:

Geo

ICQ: 81917030

Вопросов: 15
Ответов: 17

Профиль | Цитата | #7

Добавлено: 03.07.03 12:02

И вот еще ссылка полезная http://www.mysql.ru/docs/man/ODBC.html

Ответить

Номер ответа: 8 Автор ответа: admsasha ICQ: 234002454 Вопросов: 56 Ответов: 69	Web-сайт: dansoft.krasnokamensk.ru Профиль \| Цитата \| #8	Добавлено: 07.07.03 08:38
	Нечего непомогло. Примеры, плиз Ответить

Номер ответа: 9
Автор ответа:

Geo

ICQ: 81917030

Вопросов: 15
Ответов: 17

Профиль | Цитата | #9

Добавлено: 07.07.03 11:02

Ты поподробне напиши что ты уже сделал, и что у тебя не получается, если ты сам хочешь получить подробный пример. Ведь я не знаю что у тебя за траблы. Но поверь у меня все работает (инфа из Аццесса льется через МиСКЛ-ОДБС в МиСКЛ базу на другую машину), хотя попатеть пришлось.

Ответить

Номер ответа: 10
Автор ответа:

Geo

ICQ: 81917030

Вопросов: 15
Ответов: 17

Профиль | Цитата | #10

Добавлено: 07.07.03 11:04

и еще, пиши как хочешь - VBforum or Email or ICQ

Ответить

Номер ответа: 11
Автор ответа:

denver_t

Вопросов: 8
Ответов: 25

Профиль | Цитата | #11

Добавлено: 07.07.03 23:19

Топорный пример, зато рабочий. На форме размещена одна кнопка и одно текстовое поле.

Public WithEvents adoPrimaryRS As Recordset

Private Sub Command1_Click()
adoPrimaryRS.MoveNext
Text1.Text = adoPrimaryRS!path_download
End Sub

Private Sub Form_Load()

im db As Connection
Set db = New Connection
db.CursorLocation = adUseClient
db.Open "Provider=MSDASQL.1;Persist Security Info=False;User ID=denverata Source=proba"
Set adoPrimaryRS = New Recordset

strSQL = "SELECT * FROM download"

adoPrimaryRS.Open strSQL, db, adOpenStatic, adLockOptimistic

'db.Close

End Sub

Ответить

Страница: 1 |