Skip site navigation (1) Skip section navigation (2)

Last inserted id

From: "Simeo Reig" <simreig(at)terra(dot)es>
To: <pgsql-odbc(at)postgresql(dot)org>
Subject: Last inserted id
Date: 2001-11-10 20:55:58
Message-ID: 012901c16a2a$18f20750$0a00a8c0@win2000 (view raw or flat)
Thread:
Lists: pgsql-odbc
 Hi, I have this simple code that uses ADO to insert a row in a test table
 with a serial id and a varchar,
 after insert I can obtain varchar's value but I *can't* obtain id's value
of
 this record. What I'm doing wrong ??
 Thanks!


 *Table definition:

     mydatabase-# \d societats;
          idsocietat    | integer               | not null default
 nextval('"societats_idsocietat_seq"'::text)
          nomsocietat   | character varying(50) |
          capitalsocial | double precision      | default 0

 *Postgres 7.1.3 under FreeBSD 4.4


 *VB code

 Private Sub Command3_Click()

   ' Dims omited
    Set Cnxn = New ADODB.Connection
    strCnxn = "Provider=MSDASQL.1;Persist Security Info=False;Data
 Source=mysource"
    Cnxn.Open strCnxn
    Set rstEmployees = New ADODB.Recordset
    strSQL = "societats"

    rstEmployees.Open strSQL, strCnxn, adOpenKeyset, adLockOptimistic,
 adCmdTable

    strFirstName = Trim(InputBox("Put name:"))
    rstEmployees.AddNew
         rstEmployees!nomsocietat = strFirstName
    rstEmployees.Update

    ' Show the newly added data
     MsgBox "New record: " & rstEmployees!idsocietat & " " &
 rstEmployees!nomsocietat

     '''''rstEmployees!idsocietat returns nothing !!!!!!!!!!!!!!

       rstEmployees.Close
    Cnxn.Close
    Set rstEmployees = Nothing
    Set Cnxn = Nothing

 End Sub




pgsql-odbc by date

Next:From: Dave PageDate: 2001-11-11 20:21:49
Subject: Re: Last inserted id
Previous:From: Simeo ReigDate: 2001-11-10 20:27:51
Subject: Re: Unicode display in VB

Privacy Policy | About PostgreSQL
Copyright © 1996-2014 The PostgreSQL Global Development Group