Utilizo programación VB para agregar datos a la base de datos, pero cada vez se reemplaza la primera fila de datos original. Echa un vistazo al código
Dim sql As String
sql = "select * from Teacher"
'Hay un problema con esta oración. Debe ser para modificar la primera fila. de datos Debería ser
sql = "select * from Teacher Order BY ID Desc"
Set rs = exesql(sql)
'La siguiente declaración. debe agregarse aquí:
p>
rs.AddNew 'Agregar nuevos datos
rs.Fields("Nombre del administrador") = Trim(Text1.Text)
rs.Fields("Número de trabajo ") = Trim(Text2.Text)
rs.Fields("Contraseña de administrador") = Trim(Text19.Text)
rs.Fields("Género") = Recortar (Text3.Text)
rs.Fields("Información de contacto") = Recortar(Text4.Text)
rs.Fields(" Dirección particular") = Trim(Text5.Text )
rs.Update
rs.Close
Además, creo que la siguiente afirmación no tiene significado y debe eliminarse:
rs Fields("Nombre del administrador") = ""
rs.Fields("ID del empleado") = ""
rs. .Fields("Contraseña del administrador") = ""
rs.Fields("Género") = ""
rs.Fields("Información de contacto") = "" p>
rs.Fields("Dirección familiar") = ""