Ejecutar update desde visual basicCerrado

Question

Hola, estoy desarrollando código con visual basic 6.0, bien tengo una aplicacion en la que accedo a una base de datos access, el problema es cuando quiero modificar algun campo de alguna tabla, se como añadir filas, se como borrarlas, pero no sé cómo modificar un campo. Alguien me puede ayudar?
muchas gracias

ddtrebel · Accepted Answer

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

Master4 · Answer

Hola

Lo podes mandar a ver como lo tenes armado...

beatriz · Answer

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

@lbert · Answer

Cuando son muchos registros los que deseas actualizar el mejor metodo es este:

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 

Si son pocos registros lo puede hacer de la otra manera, ya que si son muchos la actualozación se vuelve demaciado lenta y consume mucho mas recurso que menejar un update.

saludos

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

se algo · Answer

buenno primero ve bien tu bSE D DATOS U DESPUES VUELVELA HACER TRATA DE DAR TAMBIEN LA CLAVE PRINCIPAL ALA BASE D DATOS

rober1993 · Answer

mira este codigo espero que te ayude

https://www.recursosvisualbasic.com.ar/htm/trucos-codigofuente-visual-basic/431-actualizar-registro-al-chequear-item-de-listview.htm

si no busca en google update+visual basic, seguro encuentras mucho mas

benjamin · Answer

quiciera saber como hago para el boton de actualizar y necesito la codificacion pero es para visual basic .net ?¿? necesito ayuda!!!!

CHICOLOKO · Answer

ANDATE A LA RE PUTICIMAPARIO XD ES JODA CHE ALGIEN SABE COMO EJECUTAR EL BIRTUAL VASIC Q TENGO Q ASER UNAS COSAS DE UN JUEGO :D PERO NO SE COMO EJECUTARLO YO BAJO LA CARPETA PARA EJECUTARLO I NO SE CUAL ES EL SETUP.EXE PARA EJECUTAR ME ALLUDAN ?? ''''

denis · Answer

te acompaño en tu sentimiento ..ayudaaaaaaa

cuki · Answer

Lo estás haciendo mediante SQL directo o utilizando los métodos y funciones que provee ADO.??? .. Aclara eso primero  ..hasta luego.

( De todas formas busca en google, hay mucho sobre este tema en internet)

rfdss · Answer

Con el comando UPDATE de SQL . saludos

Ejecutar update desde visual basic

11 respuestas

Discusiones similares

¡Suscríbete a nuestra Newsletter!