Consulta también:
- Update visual basic
- Descargar visual basic - Programas - IDE
- Nod32 update download zip - Foro de Virus / Seguridad
- Calculadora en visual basic ✓ - Foro de programación
- Update nod32 v8 - Foro Hardware
- Error del sistema &h8000ffff visual basic - Guide
11 respuestas
Dim res As New ADODB.Recordset
Dim Rresultado As New ADODB.Recordset
Dim ssql as string
ssql = "Select * from FACTURAS where FACTURACODIGO = 1"
Rresultado.Open ssql, CONFOX, adOpenDynamic, adLockOptimistic
CONFOX.EXECUTE "update FACTURAS set FACTURACODIGO = 4 where FACTURACODIGO = 1"
CONFOX ES LA CONEXION
yo lo haria Asi:
Dim BD1 As Database
Dim RS1 As Recordset
Dim sSQL1 As String
Set BD1 = OpenDatabase(C:\basededatos.mdb)
sSQL1 = "Select * from FACTURAS where FACTURACODIGO = 1"
Set RS1 = BD1.OpenRecordset(sSQL1, dbOpenDynaset)
Do While Not RS1.EOF()
RS1.Edit
RS1("FACTURACODIGO") = 4
RS1.Update
RS1.Movenext
Loop
saludos
Dim Rresultado As New ADODB.Recordset
Dim ssql as string
ssql = "Select * from FACTURAS where FACTURACODIGO = 1"
Rresultado.Open ssql, CONFOX, adOpenDynamic, adLockOptimistic
CONFOX.EXECUTE "update FACTURAS set FACTURACODIGO = 4 where FACTURACODIGO = 1"
CONFOX ES LA CONEXION
yo lo haria Asi:
Dim BD1 As Database
Dim RS1 As Recordset
Dim sSQL1 As String
Set BD1 = OpenDatabase(C:\basededatos.mdb)
sSQL1 = "Select * from FACTURAS where FACTURACODIGO = 1"
Set RS1 = BD1.OpenRecordset(sSQL1, dbOpenDynaset)
Do While Not RS1.EOF()
RS1.Edit
RS1("FACTURACODIGO") = 4
RS1.Update
RS1.Movenext
Loop
saludos