Есть БД с таблицей
Подключаюсь по коду:
Брал из примера
Собственно, вот в чём вопрос:
У меня порядка 8 столбцов в таблице. По запросу нужно найти строку в столбце IDCUT = некой переменной. Далее из результата (у нас же выходит одна строка) нужно столбцы в переменные записать.
Например переменная test = колонке 'HPrint', test1 = Vsheet
Как это сделать?
Подключаюсь по коду:
Код |
---|
' Собственно, попробовать подключиться к БД: Dim oConn As Object Set oConn = New ADODB.Connection oConn.Open "DRIVER={MySQL ODBC 3.51 Driver};" & _ "SERVER=localhost;" & _ "DATABASE=pp_cut;" & _ "UID=root;" & _ "PASSWORD=;" & _ "PORT:3306;" & _ "charset=cp1251;" & _ "Option=3;" 'Получение данных из базы данных Dim cmd As ADODB.Command 'переменная в которой будет запрос Set cmd = New ADODB.Command Dim rec As ADODB.Recordset 'переменная в которой будет результат запроса Set rec = New ADODB.Recordset Dim test As String Set cmd.ActiveConnection = oConn 'указываем соединение cmd.CommandText = "SELECT HDist FROM tools WHERE IDCUT= 'A1014'" 'собственно, запрос cmd.CommandType = adCmdText Set rec.ActiveConnection = oConn rec.Open cmd oConn.Close |
Собственно, вот в чём вопрос:
У меня порядка 8 столбцов в таблице. По запросу нужно найти строку в столбце IDCUT = некой переменной. Далее из результата (у нас же выходит одна строка) нужно столбцы в переменные записать.
Например переменная test = колонке 'HPrint', test1 = Vsheet
Как это сделать?