
25/10/2007, 08:14
|
 | | | Fecha de Ingreso: octubre-2007
Mensajes: 11
Antigüedad: 17 años, 3 meses Puntos: 0 | |
Re: Visual Basic 6.0 este seria el codigo q debes de utilizar para poder agregar un registro:
Adodc1.recorset.addnew
luego en boton escribes el codigo para que lo guarde
With Adodc1.Recordset
![codigo] = UCase(Text1.Text)
![descripcion] = Text2.Text
![marca] = Text3.Text
![precio] = Text4.Text
![proveedor] = Text5.Text
![stockminimo] = Text6.Text
![fecha] = Date
.Update
End With
Adodc1.Refresh
y listo asi agregas un registro ahora para eliminar has lo siguiente
Dim codigo As String
codigo = DataGrid1.Text ' este tambien puede ser un input box
' luego hacemos la busqud en la tabla q coincida con el registro
Adodc1.RecordSource = "Select * from Egresos where codigo ='" & codigo & "'"
Adodc1.Refresh
' una vez filtrata la tabla eliminamos el registro
Adodc1.Recordset.Delete
Adodc1.Refresh
y de nuevo listo esta terminado
Espero que te sirva y cuanquier duda dejala en este foro. |