Visual Basic - VBS select SQL

Life is soft - evento anual de software empresarial
   
Vista:

VBS select SQL

Publicado por isidrofm (3 intervenciones) el 17/09/2007 13:06:30
Hola,
Estoy intentando recuperar un valor de un campo de una tabla de SQL para utilizarlo dentro de un programa.
Para ello intento utilizar un código así (con sentencias UPDATE sí me funciona correctamente):

Set Conexion = CreateObject("ADODB.Connection")
Set miRs = CreateObject("ADODB.RecordSet")
busSQL = "SELECT Actualiz FROM TABLA WHERE (AAA = 'BBBB') AND (CCC = 'AA')" & _
" AND (DDD = '" & variabledelprograma & "')" & _
" AND (EEE = '" & variabledelprograma & "') AND (FFF = '" & variabledelprograma & "')"
Conexion.Open "DSN=DIMO_SQL;UID=ABCDEFGH;PWD=12345;"
busqueda = miRs.Open busSQL, Conexion
msgbox busqueda
Conexion.Close

El problema es que no me deja hacer el "busqueda=" para obtener en una variable el valor del campo, entiendo que porque lo estoy haciendo mal y no se puede hacer así, pero no se cómo hacerlo.
¿Puede hecharme una mano alguien? Gracias por adelantado.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:VBS select SQL

Publicado por Ivan (1041 intervenciones) el 17/09/2007 15:47:55
No estás tratando de mostrar u obtener un campo, sino TODA la consulta (el recordset). Debería ser así:
msgbox busqueda.Fields(0)
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:VBS select SQL

Publicado por isidrofm (3 intervenciones) el 17/09/2007 16:18:18
Gracias Ivan, añadiré el Fields, pero el programa me da error en la línea...
busqueda = miRs.Open busSQL, Conexion
...me dice que se esperaba fin de instrucción ¿¿??
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Intenta así

Publicado por Yo (38 intervenciones) el 17/09/2007 16:57:33
No uses "busqueda", sino tu recordset:
miRs.Open busSQL, Conexion, adOpenDynamic, adLockOptimistic
msgbox miRs.Fields(0)
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:VBS select SQL

Publicado por isidrofm (3 intervenciones) el 17/09/2007 17:22:35
De esta manera ya no me da error...

Conexion.Open "DSN=DIMO_SQL;UID=aaaaaa;PWD=bbbbbb;"
miRs.Open busSQL, Conexion
act = miRs.Fields("Actualiz")
Conexion.Close
msgbox act

por fiiiinnnn.
Gracias!.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar