Cómo utilizar el cuadro de texto para insertar datos y leer datos de visualización en la base de datos VB
Una visita
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