Cómo utilizar el cuadro de texto para insertar datos y leer datos de visualización en la base de datos VB

Agregar código en el evento KeyPress de Text1 Durante la visita, ingrese datos en Text1 y presione Enter para finalizar

Private Sub Text1_KeyPress(KeyAscii AsInteger)

Si KeyAscii = 13 entonces

Atenuar X como entero

Atenuar CNN como nuevo ADODB.Connection

Atenuar primero como nuevo ADODB.Recordset

Atenuar SQ2 como conexión Struts

Atenuar primero como nuevo ADODB.Recordset

Atenuar SQ2 como cadena

CNN.Abrir "Provider=microsoft.jet. oledb .4.0;data source="& App.Path &"\DatabaseName.mdb"

SQ2 = "seleccionar * del nombre de la tabla"

rst.Open SQ2, CNN, adOpenKeyset , adLockOptimistic

si no es rst.EOF entonces

rst.Movefirst

rst.Open SQ2, CNN, adOpenKeyset, adLockOptimistic