Red de conocimiento informático - Problemas con los teléfonos móviles - En la programación VB, hay una "tabla de lectura" en la base de datos "Administración de biblioteca" y la estructura de la tabla es "número, nombre".

En la programación VB, hay una "tabla de lectura" en la base de datos "Administración de biblioteca" y la estructura de la tabla es "número, nombre".

Dim?Con?As?New?ADODB.Connection?'Definir objeto ADO

Dim?Rs?As?New?ADODB.Recordset

Privado?Sub?Command1_Click() p>

Si?Text1.El valor de incremento de control no puede estar vacío

MsgBox?"Por favor, ingrese su edad correctamente",?48,?"Mensaje rápido"

De lo contrario

Con.ConnectionString?=?"Provider=Microsoft.Jet.OLEDB.4.0;Data?Source="?amp;?App.Path?amp;?"\student.mdb;Persist?Security ?Info=False"

Con.Open

Set?Rs?=?Con.Execute("ACTUALIZAR?Información básica del estudiante?SET?Edad=?Edad "? ?Texto1. ¿Texto?"") Modificar instrucción de tabla

Con.Close

End?If

Adodc1.ConnectionString?=?"Provider=Microsoft.Jet.OLEDB .4.0;Data?Source="?amp;?App.Path?amp;?"\student.mdb;Persist?Security?Info=False"?"'Actualizar control ADO

Adodc1.RecordSource? =?? "select?*?from?StudentBasicInfo"

Adodc1.Refresh

Establecer?DataGrid1.DataSource?=?Adodc1

End?Sub

Private?Sub?Form_Load()

Adodc1.ConnectionString?=?"?Provider=Microsoft.Jet.OLEDB.4.0;Data?Source="?amp;?App.Path? amp;?"\student.mdb;Persist?Security?Info=False"?"'Inicializar control ADO

Adodc1.RecordSource?=?? "select?*?from?StudentBasicInfo"

Adodc1.Refresh

Establecer?DataGrid1.DataSource?=?Adodc1

¿Fin?

上篇: ¿Qué tipo de juego es QQ Nine Immortals? 下篇: En el segundo juego de S7 edg vs skt, ¿por qué no dejar que Enchantress controle la línea con el troll?

Artículos populares