Visual Basic - Boton Guardar, Editar-Guardar

Life is soft - evento anual de software empresarial
 
Vista:

Boton Guardar, Editar-Guardar

Publicado por Carlos Linares (9 intervenciones) el 20/09/2010 15:41:39
Buenos Dias,

Estoy haciendo un sistema de inventario.. Pero no se como hacer para que me funcione el boton de guardar la info en la BD al igual que me funcione el de editar y luego guardar.
(access 2000).

Necesito de su gran ayuda..!!

Gracias de antemano..

Saludos
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

RE:Boton Guardar, Editar-Guardar

Publicado por CarlosM (9 intervenciones) el 21/09/2010 18:32:33
Buenos dias tocayo.
No entiendo muy bien tu pregunta, pero te voy a dar alguna idea.

Private Sub btGuardar_Click()
Dim dbINV1 As Database
Dim rsInventario As Recordset

Err.Number = 0

' Inhabilito del boton para evitar que lo pulsen repetivamente.
btGuardar.Enabled = False

' Sin algunos parametros que son importantes no realizo el proceso de guardar
If Text2.Text = "" Or Text5.Text = "" Or Combo1.Text = "" Then
MsgBox ("FALTA INDICAR DATOS IMPORTANTES")
Exit Sub
End If

Set dbINV1 = OpenDatabase(RUTAXX, False, False, ";pwd=" & CLAVE)

' Busco el parametro que identifica cada equipo, esto es para saber si existe o no
s = "SELECT * FROM [EQUIPOS] WHERE DOCUMENTO= " & Text1.Text
Set rsInventario = dbINV1.OpenRecordset(s, dbOpenDynaset)
dbINV1.Recordsets.Refresh

If Err Then
MsgBox "Error al abrir el RecordsetxxXX" & vbCrLf & _
Err.Number & " " & Err.Description
End If

If rsInventario.RecordCount > 0 Then
Mensaje$ = ("ESTE NUMERO DE TICKET YA EXISTE, DESEA EDITARLO?")
reply = MsgBox(Mensaje$, vbOKCancel, "Entrada")

If reply = vbOK Then
rsInventario.Edit
Else
rsInventario.AddNew
End If

rsInventario("Fecha") = MaskEdBox1.Text
rsInventario("Documento") = Text1.Text
rsInventario("NOMBRE") = Text2.Text
rsInventario("CI") = Text11.Text
rsInventario("DIRECCION") = Text3.Text
rsInventario("TELEFONO") = Text4.Text
rsInventario("EQUIPO") = Text5.Text
rsInventario("MARCA") = Text6.Text
rsInventario("MODELO") = Text7.Text
rsInventario("SERIAL") = Text8.Text
rsInventario("OBSERVACIONES") = Text9.Text
rsInventario("DEFECTOS") = Text10.Text
rsInventario("COMENTARIOS") = RichTextBox1.Text
rsInventario("STATUS") = "ESPERA"

rsInventario.Update

rsInventario.Close
Set rsInventario = Nothing
dbINV1.Close
Set dbINV1 = Nothing

Text2.SetFocus
End Sub

Espero que esto te pueda ayudar...
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Boton Guardar, Editar-Guardar

Publicado por Carlos Linares (9 intervenciones) el 21/09/2010 19:06:47
Buenas Carlos,

Gracias mi pana.. Yo soy un poco novato en esto.. Es que estoy haciendo un sistemita para la empresa donde trabajo.. Y quiero saber como programar los botones que sea para guardar en la BD (access) al igual poder editarlo y luego guardarlo.

Pero hay una parte que no se como hacer en todo el codigo que me mandaste..

Como lo relaciono a la BD!?

Yo ya tengo la conexion a la BD.. Pero este codigo que me mandas como lo relaciono!!

Gracias...!!

Si es posible o sino es mucha molestia podriamos hablar por msn..!!

Gracias nuevamente....
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar