Visual Basic.NET - Agregar registros a un dataset

   
Vista:

Agregar registros a un dataset

Publicado por Pedro (1 intervención) el 22/04/2008 23:15:45
Estoy intentando agregar registros en una base de datos hecha en acces, no me marca error pero no se agrega el registro, espero alguien me pueda ayudar.
Saludos.
Les dejo mi codigo para ver si ustedes pueden ver el error


dim ds as new dataset
sel = "Select * From [Lista Maestros]"

Dim adapterss As New OleDbDataAdapter()
dt = New DataTable

adapterss.SelectCommand = New OleDbCommand(sel, conexion)

Dim cb As OleDbCommandBuilder = New OleDbCommandBuilder(adapterss)



adapterss.Fill(dt)

Dim dr As DataRow = dt.NewRow

dr("nombre completo") = TextBox2.Text
dr("nomina") = TextBox3.Text
dr("Division") = TextBox4.Text
dr("Departamento") = TextBox5.Text
dr("Tipo de Contrato") = TextBox13.Text
dr("extencion en tec") = TextBox6.Text
dr("Localizacion en tec") = TextBox7.Text
dr("Direccion mex") = TextBox8.Text
dr("Telefono mex") = TextBox9.Text
dr("e-mail") = TextBox10.Text
dr("Direccion externo") = TextBox1.Text
dr("Pais") = TextBox11.Text
dr("Telefono externo") = TextBox12.Text
dr("Fecha de Nacimieto") = TextBox14.Text
dr("Lugar de nacimiento") = TextBox15.Text
dr("Nacionalidad") = TextBox16.Text
dr("Cuenta") = TextBox17.Text
dr("Universidad") = TextBox19.Text
dr("Doctorado") = CheckBox1.Checked
dr("Maestria") = CheckBox2.Checked
dr("En") = TextBox20.Text
dr("EspecialidadAd") = TextBox21.Text
dr("fechain") = TextBox22.Text
dr("fechater") = TextBox23.Text
dr("fextencion") = TextBox24.Text
dr("observaciones") = TextBox25.Text
dr("fechaDintegracionPlanta") = TextBox26.Text
dr("antiguedad") = TextBox27.Text
dr("casado") = CheckBox3.Checked
dr("nombre completo del conyugue") = TextBox28.Text
dr("hijos") = CheckBox4.Checked
dr("Evaluacion Psicologica") = TextBox30.Text
dr("activo en el extranjero") = CheckBox5.Checked
dr(16) = ""
dr(18) = "0"
dr(19) = "false"
dr(23) = ""
dr(24) = ""
dr(25) = ""
dr(34) = "01/01/1900"
dr(35) = "false"
dr(37) = "false"
dr(40) = "0"
dr(41) = "0"
dr(42) = "0"
dr(44) = "false"
Try
dt.Rows.Add(dr)
dt.AcceptChanges()
adapterss.Update(dt)


Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder