Я почти забыл весь VB, который выучил несколько лет назад, поэтому пересматриваю его сейчас. Подключить базу данных ADO к VB не очень сложно.
Первый шаг подключения (читайте внимательно)
Для новичков руководство здесь самое подробное. Первый шаг при подключении к базе данных ADO: какие компоненты следует добавить? Полное имя — компонент Microsoft ADO Data Control 6.0 (SP6) (OLEDB).
В компоненте Microsoft ADO Data Control 6.0 (SP6) (OLEDB) есть имя: Adodc data control, его нужно добавить. Найдите ACCES в месте хранения данных управления данными Adodc.
Метод, на который ссылается элемент управления (значение относится к имени).
Скопируйте код кода следующим образом:
Для i = 1 в Adodc1.Recordset.RecordCount
Если не Adodc1.Recordset.EOF Тогда
Combo1.AddItem Adodc1.Recordset.Fields("значение").Значение
Adodc1.Recordset.Movenext
Конец, если
Дальше я
Автор, которого цитирует этот код, - ydl890406. Когда я писал эту вещь в группе VB, меня попросили одолжить ее. Позже я обнаружил, что в ней было много ошибок. После того, как я несколько раз ее исправил, ошибки все равно были, поэтому я. просто переписал его. Это более поздний код. Время пролетело быстро и группа ВБ тоже распалась. Позже, по неизвестной причине, этот код теперь используется во многих руководствах.
Вторая часть — это соединение кода AOD. Поскольку вторая часть включает в себя объект Recordset и объект Connection, вы можете изучить его самостоятельно и написать.
Что такое объект Recordset и объект Connection? Объект Connection — это соединение с источником данных, а объект Recordset — это данные операции.
Ищем компоненты Microsoft ADO Data Control 6.0 (SP6) (OLEDB).
VB использует ADO для подключения к базе данных SQL Server.
'Константа информации об источнике данных Public Const conn As String = "Provider = SQLOLEDB.1; Пароль = sa; UserID = sa; Начальный каталог = StudentFiles; Источник данных = localhost" Public Const CONNECT_LOOP_MAX = 10 'Выполните операцию подключения один раз, и вы сможете обращаться к базе данных Число разPrivate IsConnect As Boolean 'Отметить, подключена ли база данныхPrivate Connect_Num As Integer 'Отметьте количество обращений к данным после выполнения функции Connect()Private cnn As ADDODB.Connection 'Подключите объект для подключения к базе данныхPrivate re As ADDODB.Recordset 'Объект набора записей, сохраняющий набор результатов //Подключение к базе данныхPrivate Sub Connect () 'Если отметка соединения Если истина, возврат. IF IsConnect = True then Exit Sub End If Set cnn = New ADODB.Connection 'Ключ new используется для создания нового объекта cnn cnn.ConnectionString = conn cnn.Open 'Определить статус соединенияIf cnn.State <> adStateOpen then MsgBox «Ошибка подключения к базе данных» End End If «Установить идентификатор соединения, указывающий, что оно подключено к базе данных IsConnect = TrueEnd Sub» Разъединить соединение с базой данных Private Sub DisConnect() Dim rc As Long If IsConnect = False Затем Exit Sub End If 'Закройте соединение cnn.Close' Release cnn Set cnn = Nothing IsConnect = FalseEnd Sub'Используйте Connect_Num для управления подключением к данным Public Sub DB_Connect() Connect_Num = Connect_Num + 1 ConnectEnd Sub'Используйте Connect_Num для управления данными отключить Public Sub DB_Disconnect () Если Connect_Num >= CONNECT_LOOP_MAX Тогда Connect_Num = 0 Отключить End If End Sub'Принудительно закрыть режим API для доступа к русской базе, сбросить счетчик Public Sub DBapi_Disconnect() Connect_Num = 0 DisconnectEnd Sub'Выполнить работу с базой данных, язык'byval Он передается по значению параметра, и параметр не будет меняться в процессе передачи (то есть значение параметра передается процессу вместо адреса. Это позволяет процессу получить доступ к копии переменной, и процесс не может изменить значение переменной ); соответствующее ей значение — byref, что означает, что передачу значения по адресу параметра можно опустить. Public Sub SQLExt(ByVal TmpSQLstmt As String) Dim cmd As New ADODB. .Command 'Создать объект команды cmd DB_Connect 'Подключиться к базе данных Set cmd.ActiveConnection = cnn 'Установить атрибут ActiveConnect для cmd и указать связанное с ним соединение с базой данных cmd.CommandText = TmpSQLstmt 'Установить текст команды для выполнения'MsgBox TmpSQLstmt cmd.Execute 'Выполнить команду Set cmd = Ничего DB_DisConnect 'Отключиться Открыть соединение с базой данных End Sub' Выполнить оператор запроса к базе данных Public Function QueryExt(ByVal TmpSQLstmt As String) As ADODB.Recordset Dim rst As New ADODB.Recordset 'Создать объект Rescordset первым DB_Connect 'Подключиться к базе данных Set rst.ActiveConnection = cnn 'Установить свойство ActiveConnection для rst и указать соединение с связанной с ним базой данных rst.CursorType = adOpenDynamic ' Сначала установите тип курсора LockType = adLockOptimistic 'Установите тип блокировки первым. Откройте TmpSQLstmt. 'Открываем набор записей. Set QueryExt = rst' Возвращаем функцию RecordsetEnd.