Visual Basic Foro
Programación => Bases de Datos => Mensaje iniciado por: gasafonso en Octubre 24, 2014, 02:58:05 pm
-
Buenas tardes amigos del foro, alguien me puede decir como puedo pasar esto a coneccion directa ?
Dim criterio As String
If Text1.text >= 100 Then
End
End If
criterio1 = "SELECT * FROM TBCAJA where fecha=#" & Format(DTPicker1.Value, "DD/MM/yyyy") & "#"
'CRITERIO = "fecha =" & Format(DTPicker1.Value, "dd/mm/YYYY") & ""
'dscaja.Recordset.FindFirst (CRITERIO)
dscaja.Recordset.Edit
dscaja.Recordset!importeinicial = txtImporteInicial
dscaja.Recordset!comparada = Text3.text 'dscaja.Recordset!trial + 1
dscaja.Recordset.Update
dscaja.Refresh
FormMenu.Timer1.Enabled = False
'Unload Me
Date = Format(Date, "DD/MM/YYYY")
'Call cargarCumples
Call cargarVacunasPendientes
gracias
-
Lo que normalmente yo hago es esto:
Si ya tengo el criterio para modificar, por ejemplo todos los registros con ID = 10 (seguro hay uno solo) o todos los registros en una fecha especifica (me parece que es tu caso) no necesito hacer previamente ningún select cuando de "codigo directo" se trata, sino directamente modifico el (los) registros segun el criterio.
sql = "UPDATE TBCAJA SET importeinicial = " & txtImporteInicial& ", comparada = " & Text3 & " WHERE MiCampoFecha = #" & TuCampoFecha & "#"
dB.Execute sql, adCmdText '<-- esta linea es la que graba
Saludos
-
Ah ok y como abris y cerras la BD a traveZ de una clase ?
-
A través de una clase no se, a través de un modulo si:
http://vb6firebird.com/blog/?p=274
Saludos
-
Podes pegarle una ojeada a este tema http://leandroascierto.com/foro/index.php?topic=2775.0 (http://leandroascierto.com/foro/index.php?topic=2775.0)
-
Siii pero para Access 97 necesito, es mas necesito algo que me simplifique las cosas
Saludos