Re: VB Resync

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

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

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

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