imprimir valor de campo de tabla de access

[ARGFA]

buenas... necesito un poco de ayuda.
estoy tratando de extraer el valor de un campo para poder imprimirlo.

tengo una tabla lamada "fpagos_temp" y quiero guardar en una variable el valor del campo lamado "fecha_sis" que se encuentra dentro de esa tabla.

al tener el valor en una variable asi podre imprimirlo.

la bd esta en access y estoy usando vb6...

gracias por su tiempo.

el codigo que tengo es asi....

Código vb:

Set MyConn = New ADODB.Connection
           Dim MyRecSet2 As New ADODB.Recordset
               
           'conexion a bd
           MyConn.ConnectionString = "Provider=Microsoft.jet.OLEDB.4.0;Data Source=" & _
            "D:\Documents and Settings\fromero\Desktop\argenis\BD\pagos.mdb"
           MyConn.Open
            
           Set MyRecSet2 = MyConn.Execute("SELECT fecha_sis FROM fpagos_temp ")
           
           fesis = myrecordset2!fecha_sis
            Print fesis
 

[SalomonSab]

no sera que deberia ser asi:

Código:

fesis = MyRecSet2!fecha_sis

en vez de:

Código:

fesis = myrecordset2!fecha_sis

[ARGFA]

q tonto.... muchas gracias....

sabes tengo otro problemita...

buenos dias
quiero sacar el total de un monto mediante un acumulador. pero para hacer dicho procedimiento tengo que filtrar la consulta mediante un codigo en especifico. aqui te muestro el codigo que tengo:

Código vb:

Set rsCodigopago = myconn.Execute("SELECT cob_num_temp FROM pagos_temp")
                rsCodigopago.MoveFirst
                While Not rsCodigopago.EOF
                cp = rsCodigopago!cob_num_temp
                cpnum = CInt(cp)
                Set rsMontocodigo = myconn.Execute("SELECT monto FROM dbo_pagos WHERE cob_num = ' " & cpnum & " ' ")
                acum = acum + rsMontocodigo!monto
                rsCodigopago.MoveNext
                Wend
                Print acum
 

etonces el error que me da al correr es que la variable cpnum no es del mismo tipo con el campo de la bd. la cual no es cierto xq el campo es numerico largo. y como podras ver convierto la variale cpnum en entero antes de hacer la consulta pero igual me da el error. no se si mi codigo en esta parte esta correcto WHERE cob_num = ' " & cpnum & " ' ") es la forma correcta de escribirlo??? ayuda por favor que por esa tonteria no he podido avanzar en dias.... he hecho de todo...

gracias de antemano

[SalomonSab]

Si lo que quieres es sacar la suma de cierto pago utiliza un sentencia SQL con un alias y posteriormente le asignas ese alias a una caja de texto o lo que tu deceas un ejemplo seria asi:

Código:

SELECT SUM(monto) AS MontoTotal FROM dbo_pagos WHERE cob_num = ' " & cpnum & " ' ")
acum = MontoTotal

Espero te sirva.

Nos Vemos

Edito:
Se me pasaba si estas trabajando con numeros utiliza las comillas Simples "" tu consulta seria asi:

Código:

Set rsCodigopago = myconn.Execute("SELECT cob_num_temp FROM pagos_temp")                
rsCodigopago.MoveFirst                
     While Not rsCodigopago.EOF                
            cp = rsCodigopago!cob_num_temp                
            cpnum = CInt(cp)                
            Set rsMontocodigo = myconn.Execute("SELECT monto FROM dbo_pagos WHERE cob_num = " & cpnum & "")                
           acum = acum + rsMontocodigo!monto                
      rsCodigopago.MoveNext                
     Wend                
Print acum

a ver si ahora te funciona, si no has lo otro que te plantee

[ARGFA]

EPAAA SalomonSab gracias por tus consejos... aplique la que me dijists pero seguia dandome el error que no eran de tipos iguales....
resulta que no estaba escribiendolo cmo era... y con las comillas simples tapoco funcionaron...
la cuestio termino siendo asi despues de tanto investigar...

Código vb:

Set rsMontocodigo = myconn.Execute("SELECT monto FROM dbo_pagos WHERE cob_num = " & cpnum)
 

y ahora si funciona....
pro como siempre que resuelves algo, siempre sale otra cosa nueva jejeje...
mi problema ahora es realizando otra consulta sql, lo que trato de hacer es extraer dos campos de la misma tabla con dos filtros o condiciones. pero la consulta me da error, por supuesto que la debo estar escribiendo mal. v si me puedes ayudar con eso....
gracias...
esta es la consulta.

Código vb:

Set rsrsfactura = myconn.Execute("SELECT nro_fact,fec_emis FROM dbo_reng_pag WHERE ((cob_num =  rsCodigopago!cob_num_temp) && (tp_doc_cob =  "FACT"  )")
 

quiero el numero de factura y la fecha de la misma que se encuentran en la tabla dbo_reng_pag donde cob_num = codigopagotemporal(este es una variable) y tp_doc_cob = "FACT"(esta es una cadena de texto, FACT)

supongo que la consulta es asi, pero igual me da error...

[SalomonSab]

esto sin lugar a dudas no funciona:

Código:

 &&

El ampersan & sirve para unira cadenas o textos no para hacer una condición deberia funcionar de esta manera

Código:

Set rsrsfactura = myconn.Execute("SELECT nro_fact,fec_emis FROM dbo_reng_pag WHERE ((cob_num =  rsCodigopago!cob_num_temp) AND (tp_doc_cob =  "FACT"  )")

esperamos dar con el resultado, bendiciones