Ver Mensaje Individual
  #2 (permalink)  
Antiguo 25/10/2007, 08:14
Avatar de shadowGT
shadowGT
 
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.