Buscar : en
Por :

Ejecutar update desde visual basic

Última respuesta el 17 ene 2009, 23:33:12 beatriz, el 16 oct 2008, 17:35:46 
 Señalar este mensaje a los moderadores

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

Configuración: Windows XP
Internet Explorer 7.0

Mejores respuestas para « Ejecutar update desde visual basic » en :
[Mito] Visual Basic es un lenguaje orientado a objetos VerMito Visual Basic es un lenguaje orientado a objetos. Realidad FALSO Explicación: Este mito es popular, pero desafortunadamente es falso: VB6 no es un lenguaje orientado a objetos. Veamos las características de los lenguajes orientados a...
Error del sistema &H80004005 (-2147467259) VerSi al abrir Excel te aparece una ventana emergente “Microsoft Visual Basic” conteniendo el mensaje de error: Error del sistema &H80004005 (-2147467259). Error no especificado Para solucionar este problema: Abre Excel Ignora el mensaje de...
Descargar Visual Basic Runtime Files VerVisual Basic Runtime Files 6.0 contiene un conjunto de librerias (DLL) necesarias para ejecutar programas escritos en lenguaje Visual Basic 6.0 Contiene las DLL siguientes: - asycfilt.dll - COMCAT.DLL - msvbvm60.dll - OLEAUT32.DLL -...
Descargar Visual Basic Express Ver
Haga su pregunta Responder

1

Master4, el 16 oct 2008, 21:19:53

Hola

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

   
Responder a Master4

2

beatriz, el 20 oct 2008, 12:23:47

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

   
Responder a beatriz

3

pegaso, el 6 nov 2008, 14:29:28

Oyeme tu eso no me va

   
Responder a pegaso

4

ddtrebel, el 12 nov 2008, 18:26:59
  • +2

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

   
Responder a ddtrebel

5

@lbert, el 3 dic 2008, 23:33:08
  • +1

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

   
Responder a @lbert

6

se algo, el 17 dic 2008, 15:43:10
  • +1

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

   
Responder a se algo

7

Juanjo, el 29 dic 2008, 17:41:06

Si ya está establecida la conexión no hace falta seleccionar los registros, con la instrucción siguiente actualiza.

CONFOX.EXECUTE "update FACTURAS set FACTURACODIGO = 4 where FACTURACODIGO = 1"


(todo lo demás sobra)

Atte. Juanjo.

   
Responder a Juanjo

8

rober1993, el 7 ene 2009, 03:36:22

Mira este codigo espero que te ayude

http://www.recursosvisualbasic.com.ar/...

si no busca en google update+visual basic, seguro encuentras mucho mas

   
Responder a rober1993

9

 wewew sasa, el 17 ene 2009, 23:33:12

Te vas a la casa de la mismisa verga

   
Responder a wewew sasa
Haga su pregunta Responder
Necesitan su ayuda