SoloCodigo
CLR: .Net / Mono / Boo / Otros CLR => VB .NET => Mensaje iniciado por: WIRO en Miércoles 6 de Diciembre de 2006, 20:47
-
hola amigos, alguno de ustedes sabe como agregar un nuevo registro a la BD para una Tb desde un datagrid en VB.NET 2003.
el asunto es que desde un treeview muestro en el arbol los datos de 2 Tb, cuando hago clip en uno de los nodos hijos en un grid me mustra el detalle de este, ahora lo que quiero es agregar un registro a este mismo detalle, ahi en el datagrid.
por ejemplo si hago clip en el nodo Categorias, de este se desplega el nodo zapatos y de este el tipo de zapato, al hacer clip en el tipo de zapato, el detalle de este se muestra en un datagrid, ahora quiero agregar un nuevo tipo de zapato en el grid.
bueno espero su ayuda.
-
espero que te sirva crea un boton de agregar y escribe el siguiente codigo
Private Sub Buttoninsertardatos_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
Dim i, idpaci, numcuarto, iddr, idhosp as integer
Dim Nom, Apat, Amat, Dire, Tel, Fing, Pade, as String
Dim rw as DataRow
rw= Dataset11.Tables(0).NewRow
'aqui llenalo con los campos de tu tabla
idpaci= Inputbox("Id_Paciente")
Nom= Inputbox("Nombre")
Apat= Inputbox("Apellido_P")
Amat= Inputbox("Apellido_m")
Dire= Inputbox("Direccion")
Tel= Inputbox("Telefono")
Fing= Inputbox("Fecha_Ingreso")
Numcuarto= Inputbox("no_cuarto")
iddr= Inputbox("Id_Doctor_acargo")
Pade= Inputbox("Padecimiento")
idhosp= Inputbox("Id_Hospital")
rw.Item ("Id_Paciente")= idpaci
rw.Item ("Nombre")= Nom
rw.Item ("Apellido_P")= Apat
rw.Item ("Apellido_m")= Amat
rw.Item ("Direccion")= Dire
rw.Item ("Telefono")= Tel
rw.Item ("Fecha_Ingreso")= Fing
rw.Item ("no_cuarto")= Numcuarto
rw.Item ("Id_Doctor_acargo")= iddr
rw.Item ("Padecimiento")= Pade
rw.Item ("Id_Hospital")= idhosp
Try
DataSet11.Tables(0).Rows.Add(rw)
i = SqlDataAdapter1.Update(DataSet11)
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
End Sub