operaciones de base de datos vb.net
Simplemente consulte el siguiente código.
Importa System.Data
'Introduce el espacio de nombres de clase de operación de base de datos
Importa System.Data.OleDb
'Introduce la operación ADO.NET Espacio de nombres
Clase pública FrmModifystInfo
Hereda System.Windows.Forms.Form
ADOcmd público como OleDbDataAdapter
ds público como DataSet = Nuevo DataSet()
'Crear un objeto DataSet
Mytable público como Data.DataTable
'Crear un objeto de formulario
Myrow público como Data.DataRow
'Crea un objeto de fila de datos
Número de fila público como entero
'Define una variable entera para almacenar el número de fila actual
SearchSQL público como cadena
cmd público como OleDbCommandBuilder
'========================== = ============================
#Región "Código generado por Windows Forms Designer"
#End Región
'===================================== ===================
Sub FrmModifystInfo_Load privado (remitente ByVal como objeto, ByVal y como System.EventArgs) maneja MyBase.Load
'Cargando formulario
TxtSID.Enabled = False
TxtName.Enabled = False
ComboSex.Enabled = False
TxtBornDate.Enabled = False
TxtClassno.Enabled = False
TxtRuDate.Enabled = False
TxtTel.Enabled = False
TxtAddress.Enabled = False
TxtComment.Enabled = False 'Establecer información como de solo lectura
Dim tablename As String = "student_Info "
SearchSQL = "select * from Student_Info "
ExecuteSQL(SearchSQL, nombre de tabla) 'Abrir base de datos
ShowData() 'Mostrar registros
End Sub
Privado Sub ShowData()
'Mostrar datos en el cuadro de texto de la ventana
myrow = mytable.Rows.Item(rownumber)
TxtSID.Text = myrow. Item (0).ToString
TxtName.Text = myrow.Item(1).ToString
ComboSex.Text = myrow.Item(2).ToString
TxtBornDate.Text = Format(myrow.Item(3), "yyyy-MM-dd ")
TxtClassno.Text = myrow.Item(4).ToString
TxtTel. Texto = mifila.Item(5).ToString
TxtRuDate.Text = Format(CDate(mifila.Item(6)), "aaaa-MM-dd ")
TxtAddress. Texto = myrow.Item(7).ToString
TxtComment.Text = myrow.Item(8).ToString
End Sub
Sub privado BtFirst_Click(ByVal remitente As System.Object, ByVal y As System.EventArgs) Maneja BtFirst.Click
'Señala el primer dato
número de fila = 0
<p> ShowData()
End Sub
Private Sub BtPrev_Click(ByVal remitente como System.Object, ByVal y As System.EventArgs) Maneja BtPrev.Click
'Apunta a los datos anteriores
BtNext.Enabled = True
número de fila = número de fila - 1
Si número de fila lt 0 Entonces
número de fila = 0 'Si se llega al comienzo del registro, el número de línea se establece en cero
BtPrev.Enabled = False
End If
ShowData( )
End Sub
Private Sub BtNext_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Maneja BtNext.Click
'Señala el datos anteriores
BtPrev.Enabled = True
número de fila = número de fila 1
Si número de fila gt; mytable.Rows.Count - 1 Entonces
número de fila = mytable.Rows. Count - 1 'Determina si se ha alcanzado el último dato
BtNext.Enabled = False
End If
ShowData ()
End Sub
Private Sub BtLast_Click(ByVal remitente como System.Object, ByVal y As System.EventArgs) Maneja BtLast.Click
'Apuntar a el último dato
número de fila =
mytable.Rows.Count - 1
ShowData()
End Sub
Private Sub BtDelete_Click(ByVal remitente como System.Object, ByVal y como System.EventArgs ) Maneja BtDelete.Click
mytable.Rows.Item(rownumber).Delete() 'Eliminar registro
If MsgBox( "¿Está seguro de que desea eliminar el registro?", MsgBoxStyle.OKCancel vbExclamation, "Warning") = MsgBoxResult.OK Entonces
cmd = New OleDbCommandBuilder(ADOcmd)
'Usar sentencias SQL generadas automáticamente
ADOcmd. Update( ds, "student_Info ")
BtNext.PerformClick()
Finalizar si
Finalizar sub
Sub privado BtModify_Click(ByVal remitente Como System.Object, ByVal y Como System.EventArgs) Maneja BtModify.Click
TxtSID.Enabled = False 'Los campos clave son de solo lectura
TxtName.Enabled = True 'Leer -write
ComboSex.Enabled = True
TxtBornDate.Enabled = True
TxtClassno.Enabled = True
TxtRuDate.Enabled = True
TxtTel.Enabled = True
TxtAddress.Enabled = True
TxtComment.Enabled = True
Fin Sub
Privado Sub B
tUpdate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Maneja BtUpdate.Click
Si no es Testtxt(TxtName.Text) Entonces
MsgBox( "Ingrese su nombre ! ", vbOKOnly vbExclamation, "Advertencia")
TxtName.Focus()
Salir Sub
Finalizar si
Si no es Testtxt ( ComboSex.Text) Luego
MsgBox("¡Seleccione un género!", vbOKOnly vbExclamation, "Advertencia")
ComboSex.Focus()
Salir Sub
Fin si
Si no Testtxt(TxtClassno.Text) Entonces
MsgBox( "¡Seleccione un número de clase!", vbOKOnly vbExclamation, "Advertencia" )
TxtClassno.Focus()
Salir Sub
Finalizar si
Si no Testtxt(TxtTel.Text) Entonces
MsgBox( "¡Ingrese su número de contacto! ", vbOKOnly vbExclamation, "Advertencia")
TxtTel.Focus()
Salir Sub
Finalizar si
Si no Testtxt( TxtAddress.Text) Luego
MsgBox( "¡Ingrese la dirección de su casa!", vbOKOnly vbExclamation, "Advertencia")
TxtAddress
.Focus()
Salir de Sub
Finalizar si
Si no es numérico(Trim(TxtSID.Text)) Entonces
MsgBox( "¡Ingrese el ID numérico del estudiante!", vbOKOnly vbExclamation, "Warning")
Salir de Sub
TxtSID.Focus()
Finalizar si
Si no es Fecha(TxtBornDate.Text) Entonces
MsgBox( "¡La hora de nacimiento debe ingresarse en el formato de fecha (aaaa-mm-dd)!", vbOKOnly vbExclamation, "Advertencia")
Salir de Sub
TxtBornDate.Focus()
Finalizar si
Si no es IsDate(TxtRuDate.Text) Entonces
MsgBox( "¡La hora de inscripción debe ingresarse en formato de fecha (aaaa-mm-dd)!", vbOKOnly vbExclamation, "Advertencia")
TxtRuDate.Focus()
Salir de Sub
Fin si
myrow.Item(0) = Trim(TxtSID.Text)
myrow.Item(1) = Trim(TxtName.Text )
myrow.Item(2) = Trim(ComboSex.Text)
myrow.Item(3) = Trim(TxtBornDate.Text)
myrow. Artículo(4) = Recortar( TxtClassno.Text)
myrow.Item(5) = Recortar(TxtTel.Text)
myrow.Item(6) = Recortar(TxtRuDate.Text )
myrow.Item(7) = Trim(TxtAddress.Text)
myrow.Item(8) = Trim(TxtComment.Text)
mytable.GetChanges()
cmd = New OleDbCommandBuilder(ADOcmd)
'Usar sentencias SQL generadas automáticamente
ADOcmd.Update(ds, "student_Info ")
'Actualizar la base de datos Actualizar
MsgBox("¡Modifique la información de estado del estudiante exitosamente!", vbOKOnly vbExclamation, "Advertencia")
TxtName.Enabled = False
ComboSex.Enabled = False
TxtBornDate.Enabled = False
TxtClassno.Enabled = False
TxtRuDate.Enabled = False
TxtTel.Enabled = False p>
TxtAddress.Enabled = False
TxtComment.Enabled = False 'Restablecer la información a solo lectura
End Sub
Private Sub BtCancel_Click(ByVal remitente As System.Object, ByVal e As System.EventArgs) Maneja BtCancel.Click
TxtSID.Enabled = False
TxtName.Enabled = False
ComboSex Enabled = False
TxtBornDate.Enabled = False
TxtClassno.Enabled = False
TxtRuDate.Enabled = False
TxtTel. .Habilitado = Falso
TxtAddress.Enabled = False
TxtComment.Enabled = False
End Sub
Función pública ExecuteSQL (ByVal SQL como cadena, tabla ByVal como cadena)
Pruebe
'Crear objeto ADODataSetCommand
'Función de consulta de base de datos
ADOcmd = New OleDbDataAdapter(SQL, "Provider=Microsoft.Jet.OLEDB. 4.0; Data Source=c:\student.mdb ")
'Crear objeto ADODataSetCommand
ADOcmd.Fill(ds, table) 'Obtener el formulario
mytable = ds.Tables.Item(0) 'Obtiene la tabla llamada tabla
número de fila = 0 'Establece en la primera fila
myrow = mytable.Rows.Item(número de fila)
'Obtener la primera fila de datos
Captura
MsgBox(Err.Description)
Finalizar intento
Función final
Clase final