¿Cómo ejecutar sentencias SQL en el lenguaje VB de VS? ¿Y cómo generar el contenido de la tabla? ¡Por favor responde! ¡Gracias! ¡Ya sé cómo conectarme a la base de datos!

La base de datos ADO utilizada por VB se puede dividir en base de datos activa y base de datos pasiva, es decir, si se utiliza la fuente de datos DSN, como se muestra en el siguiente ejemplo:

1. Antes de conectarse a la base de datos, primero debe conectarse a la base de datos VB. En el menú "Proyecto" - "Referencia", seleccione los dos componentes: la biblioteca Microsoft ActiveX Data Objects 2.6 y el conjunto de registros Microsoft ActiveX Data Objects 2.6. Este es el trabajo que se debe realizar. antes de conectar los datos.

2. A continuación, defina el objeto de conexión ADO, de la siguiente manera:

Set conn = New ADODB.Connection

Set rs = New ADODB.Recordset

El primer método utiliza un método de conexión de base de datos pasiva

conn.ConnectionString = "Driver={sql server}; server=JSZX3-11; uid=sa; pwd= ;database=wzc"

conn.ConnectionTimeout = 30

conn.Open

rs.Open "seleccione nombre de usuario, contraseña desde el inicio de sesión donde nombre de usuario =' "& Trim(Combo1.Text) & "'Y contraseña='" & Trim(Text1.Text) & "'", conn, adOpenStatic, adLockReadOnly, adCmdText

Si rs.EOF = True y rs.BOF Entonces

m = MsgBox("Inicie sesión nuevamente", vbExclamation)

Text1.Text = ""

Text1.SetFocus

Else

Form1.Hide

End If

rs.Close

Este es el segundo método para conectar el método de base de datos, este método utiliza un método activo para conectarse a la base de datos, el código es el siguiente:

Set conn = New ADODB.Connection

Set rs = New ADODB.Recordset

conn.ConnectionString = " DSN=login;uid=sa;pwd=;"

conn.ConnectionTimeout = 30

conn.Open

rs.Open "seleccione el nombre de usuario al iniciar sesión" , conn, adOpenStatic, adLockReadOnly, adCmdText

Atenuar i como cadena

Para t = 0 a Val(rs .RecordCount) - 1

i = Trim( rs.Fields("Nombre de usuario").Value)

rs.MoveNext

Combo1.AddItem i

Siguiente t

rs. Cerrar