From: | Chris Gamache <cgg007(at)yahoo(dot)com> |
---|---|
To: | MRGonzalez <magotemp(at)hotmail(dot)com>, pgsql-odbc(at)postgresql(dot)org |
Subject: | Re: VB Resync |
Date: | 2003-06-12 21:32:58 |
Message-ID: | 20030612213258.30244.qmail@web13807.mail.yahoo.com |
Views: | Raw Message | Whole Thread | Download mbox | Resend email |
Thread: | |
Lists: | pgsql-odbc |
I've experienced the same problem. To address this issue I use explicit update
and insert statements using the .Execute method, and forget about ADO's .AddNew
and .Update methods.
dim rs
dim conn
set conn = createobject("adodb.connection")
conn.open "[your connection string]"
set rs = conn.execute("update table set column1='" & value1 & "' where id='" &
id & "';")
set rs = nothing
conn.close
set conn = nothing
--- MRGonzalez <magotemp(at)hotmail(dot)com> wrote:
> Thank you, it works.
>
> Now, I have a single ADO control bound to my table "clients".
> To add a new record I do this:
>
> adoClients.Recordset.AddNew
> ... block of sentences ...
> adoClients.Recordset.Update
>
> And that works very fine. However when I make some changes
> and try to update, it raises an error
>
> adoClients.Recordset.Update
>
> "Row cannot be located for updating. Some values may have been changed since
> it was last read"
>
> Any Ideas,
> Best regards,
>
>
> MAGO
>
>
> -------Mensaje original-------
>
> De: cgg007(at)yahoo(dot)com
> Fecha: Jueves, 12 de Junio de 2003 10:01:52 a.
> A: MRGonzalez; pgsql-odbc(at)postgresql(dot)org
> Asunto: Re: [ODBC] VB Resync
>
> If you're application is designed to run only with PostgreSQL, let
> PostgreSQL
> keep track of the current value of the serial:
>
> dataenvironment.connection.execute "Insert Into Detail (FK, Field1, Field2,
> FieldN) select currval('whatever_the_PK\'s_sequence_name'),'" & intData1 &
> "','" & intData2 & "','" & intDataN & "');"
>
> HTH
>
> --- MRGonzalez <magotemp(at)hotmail(dot)com> wrote:
> > I have an application where I save the information of a bill and its
> detail.
> > The PK of the header its a serial.
> >
> > I need to save the header and get the number of the serial to save it as a
> > FK in the detail.
> >
> > This is the way I wrote but it raise an error:
> >
> > header.recordset.update
> > header.recordset.resync adAffectCurrent, adResyncAllValues
> >
> > dataenvironment.connection.execute "Insert Into Detail (FK, Field1, Field2
>
> > FieldN) Values (" & header.recordset!PK & "," & intData1 & "," & intData2
> &
> > ," & intDataN & ")"
> >
> > Any suggestions?
> >
> > Thank you in advanced,
> >
> >
> > MAGO
>
>
> __________________________________
> Do you Yahoo!?
> Yahoo! Calendar - Free online calendar with sync to Outlook(TM).
> http://calendar.yahoo.com
__________________________________
Do you Yahoo!?
Yahoo! Calendar - Free online calendar with sync to Outlook(TM).
http://calendar.yahoo.com
From | Date | Subject | |
---|---|---|---|
Next Message | Frankie Lam | 2003-06-13 07:14:29 | Connect Timeout Does Not Work |
Previous Message | MRGonzalez | 2003-06-12 18:34:32 | Re: VB Resync |