Código para usar la conexión vb para acceder a la base de datos para agregar y modificar registros (no se requiere ADO)

'Preparación: Base de datos D:\Mydb.mdb base de datos, cree una tabla de datos: UserInfo, cree campos: Usuario, Contraseña y agregue un registro

'Proyecto Point - gt; referencia para seleccionar la biblioteca Microsoft Activex Data Objects 2.1

'Controles: Agregar un cuadro de texto y un botón de comando

Private Sub Command1_Click()

Atenuar s como cadena

Atenuar Conn como nuevo ADODB.

Atenuar Rs como nuevo ADODB.Recordset

Conn.Open "Provider = Microsoft.Jet.OLEDB.4.0;Data source=D:\mydb.mdb"

'Cambie el nombre de la base de datos y la ruta a su nombre y ruta de base de datos reales

Dim UserName As Cadena

Atenuar contraseña como cadena

s = Texto1.

Si s = "1" o s = "2" entonces

Nombre de usuario = InputBox("Ingrese el nombre de usuario")

Contraseña = InputBox("Ingrese la contraseña de usuario")

sql = "Seleccione * de [Información de usuario] donde Usuario=' " amp; UserName amp; "'"

' UserInfo Reemplácelo con el nombre real de su tabla de datos

Rs.Open sql, Conn, 1, 3

Si Rs.EOF Entonces

MsgBox "Este usuario no fue encontrado"

De lo contrario

Si Rs("Contraseña") = Contraseña Entonces

Si s = "1" Entonces

MsgBox "Este usuario no fue encontrado"

De lo contrario

Si Rs.

MsgBox "123"

ElseIf s = "2" Entonces

MsgBox "456"

Finalizar si

Else

MsgBox "Contraseña incorrecta"

.End If

End If

End If

End Sub

El ejemplo anterior implementa la consulta

Si desea agregar, eliminar, actualizar, etc., solo necesita escribir la instrucción SQL correspondiente y luego usar

Conn.

Agregar:

SQL="Insertar en [Información de usuario](Información de usuario

, Contraseña) Values('aaaa', '1234')"

Conn.Execute SQL 'Ejecución, cambie la contraseña del usuario aaaa a abcdefg

Lo anterior es solo un ejemplo. en la práctica Durante el uso, puede utilizar parte del contenido ingresado por el control, etc., lo que le brinda una gran flexibilidad