Сообщество Чайников

Вопрос

Как из VB «достучаться» до определенных полей таблицы, точнее указав таблицу, номер поля и номер записи взять значение?

Ответ

Для доступа к записям базы данных необходимо использовать какие-либо компоненты доступа к данным. Раммотрим пример наиболее распространенный — ADO. (ActiveX Data Objects, поставляются вместе с Microsoft Visual Studio в частности).
Итак:

Шаг 0. Объявляем переменные

Dim Conn As ADODB.Conection
Dim RS As ADODB.Recordset
Dim Cmd As ADODB.Command Dim result


Шаг 1. Создание соединения с базой данных

Set Conn = New ADODB.Connection ' Предположим, у вас создан
'источник данных ODBC с именем MyDSN, именем пользователя aUser
'и паролем aPassword.
' Создать источник данных можно с помошью компоненты
'ODBC панели управления.
Conn.ConnectionString="DSN=MyDSN;User=aUser;Password=aPassword"
Conn.Open

Шаг2. Чтение нужной записи из таблицы

Set Cmd = New ADODB.Command
Set Cmd.ActiveConnection = Conn
Cmd.CommandText = "select * from MyTable where ID = " & Cstr(aID)
Set RS=Conn.Execute()

Шаг3. Чтение нужного значения

result = RS.Fields("Имя_Поля").Value


Шаг4. Чистим за собой

RS.Close
Set RS=Nothing
Set Cmd = Nothing
Conn.Close
Set Conn = Nothing