Casi me he olvidado de todo el VB que aprendí hace unos años, así que lo he estado revisando estos días. No es muy difícil conectar la base de datos ADO con VB.
El primer paso de la conexión (lea atentamente)
Para principiantes, el tutorial aquí es el más detallado. El primer paso para conectarse a la base de datos ADO es ¿qué componentes se deben agregar? El nombre completo es componente Microsoft ADO Data Control 6.0 (SP6) (OLEDB).
En el componente Microsoft ADO Data Control 6.0 (SP6) (OLEDB) hay un nombre: Control de datos Adodc, debe agregarlo. Busque ACCES en la ubicación de datos de control de datos de Adodc.
El método al que hace referencia el control (el valor se refiere al nombre)
Copie el código de código de la siguiente manera:
Para i = 1 a Adodc1.Recordset.RecordCount
Si no es Adodc1.Recordset.EOF entonces
Combo1.AddItem Adodc1.Recordset.Fields("valor").Valor
Adodc1.Recordset.Movenext
Terminar si
siguiente yo
El autor citado en este código es ydl890406. Cuando estaba escribiendo esto en el grupo VB, me pidieron que lo tomara prestado. Más tarde descubrí que había muchos errores. Después de revisarlo varias veces, todavía había errores. simplemente reescribímoslo. Este es el código posterior. El tiempo pasó rápido y el grupo VB también se disolvió. Más tarde, por alguna razón desconocida, muchos tutoriales ahora usan este código.
La segunda parte es la conexión del código AOD. Dado que la segunda parte involucra el objeto Recordset y el objeto Connection, puede aprenderlo usted mismo y escribirlo usted mismo.
¿Qué son el objeto Recordset y el objeto Connection? El objeto Connection es la conexión a la fuente de datos y el objeto Recordset son los datos de operación.
Buscando componentes de Microsoft ADO Data Control 6.0 (SP6) (OLEDB)
VB usa ADO para conectarse a la base de datos de SQL Server
'Constante de información de fuente de datos Public Const conn As String = "Provider = SQLOLEDB.1; Contraseña = sa; UserID = sa; Catálogo inicial = StudentFiles; Fuente de datos = localhost" Public Const CONNECT_LOOP_MAX = 10 'Realice la operación de conexión una vez y podrá acceder a la base de datos Número de vecesPrivate IsConnect As Boolean 'Marca si la base de datos está conectadaPrivate Connect_Num As Integer 'Marca el número de veces que se accede a los datos después de ejecutar la función Connect()Private cnn As ADDODB.Connection 'Conectar objeto para conectarse a la base de datosPrivate re As ADDODB.Recordset 'Objeto Recordset que guarda el conjunto de resultados //Conectar a la base de datosPrivate Sub Connect () 'Si la marca de conexión es verdadera, regresa. IF IsConnect = True Then Exit Sub End If Set cnn = New ADODB.Connection 'La clave new se utiliza para crear un nuevo objeto cnn cnn.ConnectionString = conn cnn.Open 'Determina el estado de la conexión If cnn.State <> adStateOpen Then MsgBox "Fallo de conexión de base de datos" End End If 'Establece el ID de conexión, indicando que está conectado a la base de datos IsConnect = TrueEnd Sub' Desconecta la conexión con la base de datos Private Sub DisConnect() Dim rc As Long If IsConnect = False Luego salga de Sub End si 'Cerrar la conexión cnn.Close 'Liberar cnn Establecer cnn = Nothing IsConnect = FalseEnd Sub'Use Connect_Num para controlar la conexión de datos Public Sub DB_Connect() Connect_Num = Connect_Num + 1 ConnectEnd Sub'Use Connect_Num para controlar los datos desconectar Public Sub DB_Disconnect ()Si Connect_Num >= CONNECT_LOOP_MAX Entonces Connect_Num = 0 Desconectar Fin Si Fin Sub'Forzar cerrar el modo API para acceder a la base de datos rusa, restablecer el contador Public Sub DBapi_Disconnect() Connect_Num = 0 DisconnectEnd Sub'Ejecutar operación de base de datos language'byval Se pasa por el valor del parámetro y el parámetro no cambiará durante el proceso de transferencia (es decir, el valor del parámetro se pasa al proceso en lugar de la dirección. Esto permite que el proceso acceda a una copia de la variable y el proceso no puede cambiar el valor de la variable correspondiente a ella es byref, lo que significa que se puede omitir el valor de acuerdo con la dirección del parámetro Byref Public Sub SQLExt(ByVal TmpSQLstmt As String) Dim cmd As New ADODB. .Comando 'Crear objeto de comando cmd DB_Connect 'Conectarse a la base de datos Establecer cmd.ActiveConnection = cnn 'Establecer el atributo ActiveConnect de cmd y especificar la conexión de base de datos asociada con él cmd.CommandText = TmpSQLstmt 'Establecer el texto del comando que se ejecutará'MsgBox TmpSQLstmt cmd.Execute 'Ejecutar el comando Establecer cmd = Nothing DB_DisConnect 'Desconectar Abrir la conexión con la base de datos End Sub'Ejecutar la declaración de consulta de la base de datos Public Function QueryExt(ByVal TmpSQLstmt As String ) As ADODB.Recordset Dim rst As New ADODB.Recordset 'Crear objeto Rescordset rst DB_Connect 'Conectarse a la base de datos Set rst.ActiveConnection = cnn 'Establecer la propiedad ActiveConnection de rst y especificar la conexión a la base de datos relacionada con ella rst.CursorType = adOpenDynamic ' Establezca el tipo de cursor primero. LockType = adLockOptimistic 'Establezca el tipo de bloqueo primero.Open TmpSQLstmt 'Abre el conjunto de registros Set QueryExt = rst 'Devuelve la función recordsetEnd