Re: Re: [pgsql-es-ayuda] OT , Obtener ID (PK) dese código VB6 con odbc

From: Gabriel Hermes Colina Zambra <hermeszambra(at)yahoo(dot)com>
To: mortega(at)tc(dot)com(dot)ve, Yoel Mc Lennan <listas(at)yoel(dot)com(dot)ar>, pgsql-es-ayuda(at)postgresql(dot)org
Subject: Re: Re: [pgsql-es-ayuda] OT , Obtener ID (PK) dese código VB6 con odbc
Date: 2007-06-27 17:38:50
Message-ID: 621516.17878.qm@web63707.mail.re1.yahoo.com
Views: Raw Message | Whole Thread | Download mbox | Resend email
Thread:
Lists: pgsql-es-ayuda


--- Miguel Ortega <mortega(at)tc(dot)com(dot)ve> escribió:

> Hola!
> > EJ :
> > dim l_id as integer
> > Set rs = New Recordset
> > sq = "SELECT * FROM movimientos_caja WHERE
> id_legajo=0"
> > rs.Open sq, cnConexionDatos, adOpenKeyset,
> adLockPessimistic
> > If rs.RecordCount = 0 Then
> > rs.AddNew
> > rs!id_legajo = id_legajo
> > rs!fecha = fecha
> > rs!Fecha_Transaccion = now
> > rs!tiempo_h = 0
> > rs!tiempo_m = 0
> > rs!tipo_control = "F"
> > rs.update
> >
> > ' he aquí el problema
> > l_id=rs!id_legajo
> >
> Por lo que veo, el recordset SIEMPRE esta vacio,
> incluso despues de
> hacer el .Update... Te iba a sugerir que intentar
> hacer:
>
> rs.Update
> rs.Requery
> rs.MoveLast
>
> Pero me di cuenta que la cadena con que inicias el
> recordset tiene un
> WHERE que (por lo que imagino) jamas se va a
> cumplir, asi que es muy
> natural que te de ese error. Si aplica dentro de tu
> lógica de
> programación, te sugiero que hagas algo como esto:
>
>
> /* Codigo */
>
> dim l_id as integer
> Set rs = New Recordset
> sq = "SELECT * FROM movimientos_caja WHERE
> id_legajo=0"
> rs.Open sq, cnConexionDatos, adOpenKeyset,
> adLockPessimistic
> If rs.RecordCount = 0 Then
> rs.Close
> set rs = New adodb.recordset
>
> rs.open "movimientos", cnConexionDatos,
> adOpenKeyset, adLockPessimistic, adcmdTable
>
> rs.AddNew
> rs!id_legajo = id_legajo
> rs!fecha = fecha
> rs!Fecha_Transaccion = now
> rs!tiempo_h = 0
> rs!tiempo_m = 0
> rs!tipo_control = "F"
> rs.update
>
> 'Pruebalo asi a ver si funciona pero si no es asi,
> intenta con las instrucciones que te dije
>
> 'rs.Update
>
> 'rs.Requery
>
> 'rs.MoveLast
>
> l_id=rs!id_legajo
>
> end if
> /* Codigo */
> Saludos!!! Espero te sirva..... No soy un experto
> pero puedes probar.....
>
>
>
> --
> _________________________________________
> Miguel A. Ortega B.
> Analista de Sistemas y Soporte a Usuarios
> <0416 - 642 12 26> / < mortega(at)tc(dot)com(dot)ve>
> Technologies Consulting C.A.
>
> --
> ---------------------------(fin del
> mensaje)---------------------------
> TIP 8: explain analyze es tu amigo
>
Si, es una buena sugerencia si es que vas a darle
tratamiento a PostgreSQL como si estuvieras trabajando
con un sistema como access o fox, pero desde Visual
Basic podemos trabajar con sentencias SQL, cuando
trabajamos con motores de base de datos, de manera
mucho mas eficiente y sin escribir tanto codigo.
Prometo escribir en mi blog, sobre Visual y
PostgreSQL, agradeciendo a esta lista toda la ayuda
que me dio para poder entender las basicas de
postgresql, y trabajar muy eficientemente incluso con
herramientas como VB.

Atte.
Gabriel Hermes Colina Zambra.

__________________________________________________
Correo Yahoo!
Espacio para todos tus mensajes, antivirus y antispam ¡gratis!
Regístrate ya - http://correo.espanol.yahoo.com/

In response to

Browse pgsql-es-ayuda by date

  From Date Subject
Next Message Mario Gonzalez 2007-06-27 17:44:43 Re: Reply-to en la lista (era Re: Busqueda con carácteres latinos)
Previous Message Gabriel Hermes Colina Zambra 2007-06-27 17:38:44 Re: Re: [pgsql-es-ayuda] OT , Obtener ID (PK) dese código VB6 con odbc