vb se conecta a la base de datos sql

'Para utilizar objetos ADODB, primero debe hacer referencia al modelo de objetos. Los pasos son los siguientes

'A través del menú [Proyecto] - [Referencia], verifique los datos de Microsoft ActiveX. Biblioteca de objetos 2.6

'Biblioteca de objetos de datos ActiveX 2.7 de Microsoft

'Biblioteca de objetos de datos 2.8 de Microsoft ActiveX

' se puede utilizar

La El código y los comentarios son los siguientes:

Dim Conn As ADODB.Connection 'Declara el objeto de base de datos de conexión: se utiliza para conectarse al archivo de base de datos y operar la base de datos y la tabla de datos

Dim Rst Como ADODB.Recordset 'Declarar el objeto Set de registro de datos: se utiliza para devolver un conjunto de registros de datos y realizar operaciones en los registros

Set Conn = New ADODB.Connection 'Creación de instancias de objetos de base de datos

Set Rst = New ADODB.Recordset 'Creación de instancias del objeto de conjunto de registros

'Segundo, conéctese al archivo de base de datos

'Ejecute el método Open del objeto ADODB.Connection para completar la conexión de la base de datos

Conn. CursorLocation = adUseClient

'El formato de cadena para conectarse a SQL es el siguiente

'"Provider=SQLOLEDB.1; Contraseña= contraseña para iniciar sesión en SQL; Persist Security Info=True; ID de usuario=nombre de la instancia de la base de datos SQL; Catálogo inicial=nombre de la base de datos=nombre de la computadora del servidor SQL"

'Faltan los parámetros que proporcionó; último "nombre de la computadora del servidor SQL". Utilicé 6 signos de interrogación a continuación, puede modificarlo según su situación específica

Conn.Open "Provider=SQLOLEDB.1; Contraseña=123; Persist Security Info=. Verdadero; ID de usuario = Sa; Catálogo inicial = 2013 datos; Fuente de datos = "

'Tres, devuelve el conjunto de registros

'Ejecute el método Open del objeto ADODB.Recordset para obtener el conjunto de registros

Rst.Open "Seleccione num1, num2 de icitem

", Conn, adOpenKeyset, adLockPessimistic

'Mostrar el conjunto de registros devuelto en DataGrid1

Establecer DataGrid1.DataSource = Rst

Establecer Rst = Nada 'Liberar el objeto del conjunto de registros

Establecer Conn = Nada 'Liberar el objeto de la base de datos