Public Class Form3
Dim pro As String
Dim constring As String
Dim comando As String
Dim miconexion As OleDbConnection = New OleDbConnection
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles
Button1.Click
pro = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=D: "
constring = pro
miconexion.ConnectionString = constring
miconexion.Open()
Mostrar()
comando = "insert into Registros ([DNI],[Apellidos], [Nombres],
[Tipo de Discapacidad], [Gravedad],[Comunidad], [N° Contacto]) values ('"
& txtdni.Text & "' , '" & txtapellido.Text & "' , '" & txtnombre.Text & "'
, '" & cmbxdiscapacidad.SelectedItem & "' , '" & cmbxgravedad.SelectedItem
& "' , '" & cmbxcomunidad.SelectedItem & "' , '" & txtcontacto.Text & "')"
Dim cmd As OleDbCommand = New OleDbCommand(comando, miconexion)
cmd.Parameters.Add(New OleDbParameter("DNI", CType(txtdni.Text,
String)))
cmd.Parameters.Add(New OleDbParameter("Apellidos",
CType(txtapellido.Text, String)))
cmd.Parameters.Add(New OleDbParameter("Nombres",
CType(txtnombre.Text, String)))
cmd.Parameters.Add(New OleDbParameter("Tipo de Discapacidad",
CType(cmbxdiscapacidad.SelectedItem, String)))
cmd.Parameters.Add(New OleDbParameter("Gravedad",
CType(cmbxgravedad.SelectedItem, String)))
cmd.Parameters.Add(New OleDbParameter("Comunidad",
CType(cmbxcomunidad.SelectedItem, String)))
cmd.Parameters.Add(New OleDbParameter("N° Contacto",
CType(txtcontacto.Text, String)))
MsgBox("Registro exitoso")
Try
cmd.ExecuteNonQuery()
cmd.Dispose()
miconexion.Close()
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub
Private Sub Form3_Load(sender As Object, e As EventArgs) Handles
MyBase.Load
End Sub
Private Sub Mostrar()
Dim oda As New OleDbDataAdapter
Dim ods As New DataSet
Dim consulta As String
consulta = "Select *From Registro"
oda = New OleDbDataAdapter(consulta, miconexion)
ods.Tables.Add("Registros")
oda.Fill(ods.Tables("Registros"))
DataGridView1.DataSource = ods.Tables("Registros")
End Sub
