> Hello,

> The recordset update doesnot work after a save and open for me ???
> For save, everything works well, I check the modified value in the XML
> file.
> For Open, the modified value is in the recordset when this one is
> openned. However, the update does not report the modification in the
> database.
> I am using ado 2.5 and MSDE is from Office 2000 on Window NT 4.0, SP 5.
> Here is my code.
> Thanks for your help
> Lan

> For Recordset.Save :
>     Set conn = New ADODB.Connection
>     conn.ConnectionString
> = "Provider=SQLOLEDB;server=GEN9;Trusted_Connection=yes;database=myDB"
>     conn.connect
>     Set rec = New ADODB.Recordset
>     rec.CursorLocation = adUseClient
>     rec.Open "SELECT * From myTab",conn,adOpenStatic,adLockOptimistic,
> adCmdText
>     Set rec.ActiveConnection = Nothing
>     rec.Fields(1) = "abcd"
>     rec.Save App.Path & "\myFile", adPersistXML
>     rec.Close:Set rec = Nothing
>     conn.Close: Set conn = Nothing

> For Recordset.Open and update:
>     Set conn = New ADODB.Connection ....
>     Set rec = New ADODB.Recordset
>     rec.Open App.Path & "\myFile",,adOpenStatic,adLockOptimistic,
> adCmdFile
>     Set rec.ActiveConnection = conn
>     rec.Update
>     rec.Close:Set rec = Nothing
>     conn.Close: Set conn = Nothing

> Sent via Deja.com
> http://www.deja.com/

> Try to use adLockBatchOptimistic instead of adLockOptimistic.

> G. Chen

> > Hello,

> > The recordset update doesnot work after a save and open for me ???
> > For save, everything works well, I check the modified value in the
XML
> > file.
> > For Open, the modified value is in the recordset when this one is
> > openned. However, the update does not report the modification in the
> > database.
> > I am using ado 2.5 and MSDE is from Office 2000 on Window NT 4.0,
SP 5.
> > Here is my code.
> > Thanks for your help
> > Lan

> > For Recordset.Save :
> >     Set conn = New ADODB.Connection
> >     conn.ConnectionString

> >     conn.connect
> >     Set rec = New ADODB.Recordset
> >     rec.CursorLocation = adUseClient
> >     rec.Open "SELECT * From

> > adCmdText
> >     Set rec.ActiveConnection = Nothing
> >     rec.Fields(1) = "abcd"
> >     rec.Save App.Path & "\myFile", adPersistXML
> >     rec.Close:Set rec = Nothing
> >     conn.Close: Set conn = Nothing

> > For Recordset.Open and update:
> >     Set conn = New ADODB.Connection ....
> >     Set rec = New ADODB.Recordset
> >     rec.Open App.Path & "\myFile",,adOpenStatic,adLockOptimistic,
> > adCmdFile
> >     Set rec.ActiveConnection = conn
> >     rec.Update
> >     rec.Close:Set rec = Nothing
> >     conn.Close: Set conn = Nothing

> > Sent via Deja.com
> > http://www.deja.com/

> Chen,
> Thanks for your advice.

> However, the attempt with adLockBatchOptimistic does not solve my
> problem.
> I am sure that Save is ok, since in the XML file I see the modification
> as :
> <rs:data>
> <rs:update>
> <rs:original>
> <z:row BASE_ID='XYZ' BASE_NAM='TOTO'/>
> </rs:original>
> <z:row BASE_NAM='abcd'/>
> </rs:update>

> And when I open this file, I can see that the record field is 'abcd' as
> expected.
> But the update to the original database does not work !!!
> So, what is wrong ?
> Lan

> > Try to use adLockBatchOptimistic instead of adLockOptimistic.

> > G. Chen

> > > Hello,

> > > The recordset update doesnot work after a save and open for me ???
> > > For save, everything works well, I check the modified value in the
> XML
> > > file.
> > > For Open, the modified value is in the recordset when this one is
> > > openned. However, the update does not report the modification in the
> > > database.
> > > I am using ado 2.5 and MSDE is from Office 2000 on Window NT 4.0,
> SP 5.
> > > Here is my code.
> > > Thanks for your help
> > > Lan

> > > For Recordset.Save :
> > >     Set conn = New ADODB.Connection
> > >     conn.ConnectionString

> = "Provider=SQLOLEDB;server=GEN9;Trusted_Connection=yes;database=myDB"
> > >     conn.connect
> > >     Set rec = New ADODB.Recordset
> > >     rec.CursorLocation = adUseClient
> > >     rec.Open "SELECT * From
> myTab",conn,adOpenStatic,adLockOptimistic,
> > > adCmdText
> > >     Set rec.ActiveConnection = Nothing
> > >     rec.Fields(1) = "abcd"
> > >     rec.Save App.Path & "\myFile", adPersistXML
> > >     rec.Close:Set rec = Nothing
> > >     conn.Close: Set conn = Nothing

> > > For Recordset.Open and update:
> > >     Set conn = New ADODB.Connection ....
> > >     Set rec = New ADODB.Recordset
> > >     rec.Open App.Path & "\myFile",,adOpenStatic,adLockOptimistic,
> > > adCmdFile
> > >     Set rec.ActiveConnection = conn
> > >     rec.Update
> > >     rec.Close:Set rec = Nothing
> > >     conn.Close: Set conn = Nothing

> > > Sent via Deja.com
> > > http://www.deja.com/

> Sent via Deja.com
> http://www.deja.com/

> Did you use UpdateBatch ?
> I have some codes work in the same way, it fine.

> G. Chen

> > Chen,
> > Thanks for your advice.

> > However, the attempt with adLockBatchOptimistic does not solve my
> > problem.
> > I am sure that Save is ok, since in the XML file I see the
modification
> > as :
> > <rs:data>
> > <rs:update>
> > <rs:original>
> > <z:row BASE_ID='XYZ' BASE_NAM='TOTO'/>
> > </rs:original>
> > <z:row BASE_NAM='abcd'/>
> > </rs:update>

> > And when I open this file, I can see that the record field
is 'abcd' as
> > expected.
> > But the update to the original database does not work !!!
> > So, what is wrong ?
> > Lan

> > > Try to use adLockBatchOptimistic instead of adLockOptimistic.

> > > G. Chen

> > > > Hello,

> > > > The recordset update doesnot work after a save and open for
me ???
> > > > For save, everything works well, I check the modified value in
the
> > XML
> > > > file.
> > > > For Open, the modified value is in the recordset when this one
is
> > > > openned. However, the update does not report the modification
in the
> > > > database.
> > > > I am using ado 2.5 and MSDE is from Office 2000 on Window NT
4.0,
> > SP 5.
> > > > Here is my code.
> > > > Thanks for your help
> > > > Lan

> > > > For Recordset.Save :
> > > >     Set conn = New ADODB.Connection
> > > >     conn.ConnectionString

> > > >     conn.connect
> > > >     Set rec = New ADODB.Recordset
> > > >     rec.CursorLocation = adUseClient
> > > >     rec.Open "SELECT * From
> > myTab",conn,adOpenStatic,adLockOptimistic,
> > > > adCmdText
> > > >     Set rec.ActiveConnection = Nothing
> > > >     rec.Fields(1) = "abcd"
> > > >     rec.Save App.Path & "\myFile", adPersistXML
> > > >     rec.Close:Set rec = Nothing
> > > >     conn.Close: Set conn = Nothing

> > > > For Recordset.Open and update:
> > > >     Set conn = New ADODB.Connection ....
> > > >     Set rec = New ADODB.Recordset
> > > >     rec.Open App.Path

> > > > adCmdFile
> > > >     Set rec.ActiveConnection = conn
> > > >     rec.Update
> > > >     rec.Close:Set rec = Nothing
> > > >     conn.Close: Set conn = Nothing

> > > > Sent via Deja.com
> > > > http://www.deja.com/

> > Sent via Deja.com
> > http://www.deja.com/