Visual Basic, .NET, ASP, VBScript
 

   
   
     

Форум - Работа с данными

Страница: 1 |

 

  Вопрос: База данных 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()
  
 ;Dim db As Connection
 Set db = New Connection
 db.CursorLocation = adUseClient
 db.Open "Provider=MSDASQL.1;Persist Security Info=False;User ID=denver;Data Source=proba"
 Set adoPrimaryRS = New Recordset
  
 strSQL = "SELECT * FROM download"
  
 adoPrimaryRS.Open strSQL, db, adOpenStatic, adLockOptimistic
    
 'db.Close
  
 End Sub

Ответить

Страница: 1 |

Поиск по форуму



© Copyright 2002-2011 VBNet.RU | Пишите нам