Obtener ID (PK) dese código VB6 con odbc, con insert modo directo.

--- Jaime Casanova <systemguards(at)gmail(dot)com> escribió:

> On 6/28/07, Gabriel Hermes Colina Zambra
> <hermeszambra(at)yahoo(dot)com> wrote:
> > en realidad lo que me gustaria saber es
> > como asignar un returning a una variable, cosa que
> > creo seria mejor para el caso.
> >
>
> ejecutalo directamente desde vb, sin la funcion en
> medio... como decia
> el otro dia tratar de hacer algo como:
>
> set rs = conexion.execute("insert ... returning
> campo")
Si Jaime tenes razon, me enfrasque en mi modo, pero no
me dormia si no lo hacia a tu modo.
Dtadeposito es un dataenviroment con una conexion,
quien quiera use la forma que quiera.

Option Explicit

Private Sub Command1_Click()
Dim a As Recordset
If Dtadeposito.ConnDepo.State = 0 Then
Dtadeposito.ConnDepo.Open
Set a = Dtadeposito.ConnDepo.Execute(" insert into
deposito (deposito) select '" & Text1.Text & "'
returning id_deposito;")
MsgBox a.Fields(0)
' MsgBox a.Fields("id_deposito") tambien sirve
End Sub
Atte
Gabriel Hermes Colina Zambra

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