AYUDAA! Actualizar base de datos a traves de formulario
Publicado por Agos (3 intervenciones) el 25/11/2016 04:42:49
Buenas Noches!! Necesito su ayuda. Estoy haciendo un programa en VB 6 y tengo un datagrid donde me aparece los datos de la tabla contratos que tengo en la base de datos de access 2003. una vez que selecciono y hago doble click estos se transfieren a un formulario. Ahora quiero actualizar/Modificar un campo pero a la hora de guardar no lo guarda en el socio elegido sino que me lo modifica en todos.
Me podrian ayudar con el codigo.
Gracias de antemano
Me podrian ayudar con el codigo.
Gracias de antemano
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
Option Explicit
Dim Edit As Boolean
Private Sub CmdActualizar_Click()
ComboSituacion.AddItem "Activo"
ComboSituacion.AddItem "Pausado"
ComboSituacion.AddItem "En Mora"
ComboSituacion.Text = ""
cmdGuardar.Enabled = True
cmdCancelar.Enabled = True
CmdActualizar.Enabled = False
End Sub
Private Sub Form_Load()
Set a = NothingCall conexion
If VerSocio = 1 ThenCmdActualizar.Enabled = True
cmdGuardar.Enabled = False
cmdCancelar.Enabled = True
End If
End Sub
Private Sub CmdGuardar_Click()
Dim base As New ADODB.RecordsetDim NumContrato2 As String
Dim Situacion2 As String
NumContrato2 = ""
Situacion2 = ""
If ComboSituacion <> "" Then
NumContrato2 = TxtNumContrato Situacion2 = ComboSituacionbase.Open "UPDATE CONTRATOS SET SITUACION_CONEXION = '" & Situacion2 & "';", a, adOpenDynamic, adLockOptimistic
End If
End Sub
Valora esta pregunta
0