Страница: 1 |
Как связаться с базой(mysql) на сервере. и получить данные. Мне кажется это делается через Microsoft ADO Data Control. Но я незнаю как ! Поисните по шагам, пожалуйста !!
Тебе надо скачать вот эту шнягу ODBC for MySQL отсЕдава: http://www.mysql.com/downloads/api-myodbc.html , тогда всё красиво подключается, у самого работает. И вообще зачем, по твоему, добрые люди сделали RAMBLER, GOOGLE, ALTAVISTA ???? Скачал ! А дальше что ? Как его использовать ? хех, скачал - устанавливай ..... у тебя в драйверах ODBC появится ещё одна замись по поводу MySQL.... и, допустим, через компанент ADODC1 на форме можно подключатся к базе ... Если ОДБИСИ драйвер для МиСКЛ установил, то далее можно использовать приблизительно следующий код ' обьявляем переменные 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 на строке mySQL_conn.Open "DSN=system_dsn_name_for_mysql_db" пишет ошибку [Microsoft][ODBC Driver Manager] Data source name not found and no default driver specified Можете прислать готовый пример. Очень прошу. В строке 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 и если что пиши. И вот еще ссылка полезная http://www.mysql.ru/docs/man/ODBC.html Ты поподробне напиши что ты уже сделал, и что у тебя не получается, если ты сам хочешь получить подробный пример. Ведь я не знаю что у тебя за траблы. Но поверь у меня все работает (инфа из Аццесса льется через МиСКЛ-ОДБС в МиСКЛ базу на другую машину), хотя попатеть пришлось. и еще, пиши как хочешь - VBforum or Email or ICQ Топорный пример, зато рабочий. На форме размещена одна кнопка и одно текстовое поле. Public WithEvents adoPrimaryRS As Recordset Private Sub Command1_Click() Private Sub Form_Load() Страница: 1 |
Вопрос: База данных mysql
Добавлено: 01.07.03 04:42
Автор вопроса: admsasha | Web-сайт:
Ответы
Всего ответов: 11
Номер ответа: 1
Автор ответа:
denver_t
Вопросов: 8
Ответов: 25
Профиль | | #1
Добавлено: 01.07.03 07:51
Номер ответа: 2
Автор ответа:
admsasha
ICQ: 234002454
Вопросов: 56
Ответов: 69
Web-сайт:
Профиль | | #2
Добавлено: 01.07.03 08:32
Номер ответа: 3
Автор ответа:
denver_t
Вопросов: 8
Ответов: 25
Профиль | | #3
Добавлено: 01.07.03 10:46
Номер ответа: 4
Автор ответа:
Geo
ICQ: 81917030
Вопросов: 15
Ответов: 17
Профиль | | #4
Добавлено: 02.07.03 19:31
Номер ответа: 5
Автор ответа:
admsasha
ICQ: 234002454
Вопросов: 56
Ответов: 69
Web-сайт:
Профиль | | #5
Добавлено: 03.07.03 03:10
Номер ответа: 6
Автор ответа:
Geo
ICQ: 81917030
Вопросов: 15
Ответов: 17
Профиль | | #6
Добавлено: 03.07.03 12:01
Номер ответа: 7
Автор ответа:
Geo
ICQ: 81917030
Вопросов: 15
Ответов: 17
Профиль | | #7
Добавлено: 03.07.03 12:02
Номер ответа: 8
Автор ответа:
admsasha
ICQ: 234002454
Вопросов: 56
Ответов: 69
Web-сайт:
Профиль | | #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
Номер ответа: 11
Автор ответа:
denver_t
Вопросов: 8
Ответов: 25
Профиль | | #11
Добавлено: 07.07.03 23:19
adoPrimaryRS.MoveNext
Text1.Text = adoPrimaryRS!path_download
End Sub
 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