iGrok писал(а):http://connectionstrings.com/ + ADODB + Соответствующий драйвер / провайдер.
информацию о том что говорите,где почитать можно????
Или если не трудно помогите подключить базу MSQL
Для этого нужно устанавливать сервер на комп?
Или можно обойтись без неё?
Хакер писал(а):информацию о том что говорите,где почитать можно????
Глупый вопрос. Я говорю о продукту, информацию о продукте можно почитать в документации на этот продукт.Или если не трудно помогите подключить базу MSQL
Трудно, я не знаю, что такое MSQL. MySQL? MSSQL?Для этого нужно устанавливать сервер на комп?
Нужно. Вопрос только в том, на какой комп.Или можно обойтись без неё?
Кого неё? Я бы предположил, что "без сервера", но сервер это "он". Тогда бего кого неё? Без базы что-ли?
Ведь MySQL server отпадает или нужен???
DeMONiZ писал(а):И правда theal пользуйся поиском и если не нашел задавай вопрос или же советуйся. если честно я не работал через vb с MYSQL, работал с ней через php но не думаю что запросы отличаются! впринципе почитав документацию которую нашел в интернете и через час уже успешно с ней работал тем более тем в интернете много связанных с базой данный. может в твоем случае можно обойтись и без нее??!!
Хакер писал(а):Ведь MySQL server отпадает или нужен???
Сервер нужен всегда. Но в данном случае он уже работает на mysql5.000webhost.com.
DeMONiZ писал(а):MySQL Connector/ODBC 5.1
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
DeMONiZ писал(а):У тебя есть база данных то с созданной таблицей к которой конектится будем?
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
Dim ADO_Connect As ADODB.Connection
Dim ADO_Connect As ADODB.Connection
Dim ADO_Recordset As ADODB.Recordset
'----------------------------------------------------------------------------------
' подключение к БД
Set ADO_Connect = New ADODB.Connection
With ADO_Connect
.ConnectionString = "Provider=MSDASQL.1;Driver=MySQL ODBC 5.1 Driver;Server=хост;user=юзер;pass=пароль;Database=имя базы"
.Mode = adModeReadWrite
.Open
End With
'----------------------------------------------------------------------------------
'создаем новый рекордсет, заполняем его данными из таблицы "a" к примеру
Set ADO_Recordset = New ADODB.Recordset
With ADO_Recordset
Set .ActiveConnection = ADO_Connect
.CursorLocation = adUseClient
.CursorType = adOpenKeyset
.LockType = adLockOptimistic
.Source = "SELECT * FROM a;" ' a - название таблицы
.Open
End With
'----------------------------------------------------------------------------------
'переход на первую запись, считываем значение поля "1" (допустим )
ADO_Recordset.MoveFirst
TextBox.Text = ADO_Recordset("1")
Сейчас этот форум просматривают: AhrefsBot, Google-бот и гости: 77