12/04/2005, 18:01
|
 | | | Fecha de Ingreso: marzo-2004 Ubicación: EN EL INFIERNO.....
Mensajes: 1.707
Antigüedad: 20 años, 10 meses Puntos: 7 | |
| EL ERROR ES QUE ME FALTO UN DATAADAPTER.UPDATE(DATASET)
ENTONCES ASI QUEDO
Dim ds As DataSet
Dim filll As DataRow
dataclientes.Fill(eltodo, "tbclientes")
'Me.eltodo.Tables("tbclientes").PrimaryKey() = llaveprimaria
filll = eltodo.Tables("tbclientes").NewRow
filll("rut") = TextBox1.Text
filll("nombre") = TextBox2.Text
filll("apellido") = TextBox3.Text
filll("direccion") = TextBox4.Text
filll("comuna") = Me.ComboBox1.Text
filll("telefono") = TextBox5.Text
filll("mail") = TextBox7.Text
filll("fono") = TextBox5.Text
BindingContext(eltodo, "tbclientes").EndCurrentEdit()
eltodo.Tables("tbclientes").Rows.Add(filll)
'filll.EndEdit()
'eltodo.AcceptChanges()
dataclientes.Update(eltodo)
MsgBox("oki")
PARA QUIEN LE SIRVA |