Very Computer

by **Burhan H. Afand** » Thu, 29 Jun 2000 04:00:00

Hello everyone

Can someone help me?

What is wrong with the following Visual basic code?

I can read a field in a record but I cant update the field.

Dim db As Connection

Set db = New Connection

db.CursorLocation = adUseClient

db.Open "PROVIDER=MSDASQL;driver=Microsoft dBase Driver (*.dbf);server=c:\;uid=;pwd=;database=mydatabase"

Dim rs As New Recordset

Set rs = New Recordset

rs.Open "select AMOUNT from C:\mydatabase\sales.dbf", db, adOpenStatic, adLockOptimistic

rs.MoveFirst

Do While Not rs.EOF

rs.Fields(0).Value = rs.Fields(0).Value * 2

rs.Update

rs.MoveNext

Loop

Using the above code; I can read the database but when I try to update a field I get the message:

"Run-time error '-2147467259(8004005)':

[Microsoft][ODBC dBase Driver] Cannot update. Database or object is read-only."

Can someone help me?

So what is wrong why cant I update a field?

Thanks

Burhan H. Afandi

by **reverie_g..** » Fri, 30 Jun 2000 04:00:00

Sounds like youve got your database set as read-only. Change it to
read/write.

Jennifer

Quote:> This is a multi-part message in MIME format.

> ------=_NextPart_000_0008_01BFE13A.232F04E0
> Content-Type: text/plain;
> charset="iso-8859-1"
> Content-Transfer-Encoding: quoted-printable

> =20
> Hello everyone

> Can someone help me?

> What is wrong with the following Visual basic code?

> I can read a field in a record but I cant update the field.

> =20

> Dim db As Connection

> Set db =3D New Connection

> db.CursorLocation =3D adUseClient =20

> db.Open "PROVIDER=3DMSDASQL;driver=3DMicrosoft dBase Driver =
> (*.dbf);server=3Dc:\;uid=3D;pwd=3D;database=3Dmydatabase"

> =20

> Dim rs As New Recordset

> Set rs =3D New Recordset

> rs.Open "select AMOUNT from C:\mydatabase\sales.dbf", db, =
> adOpenStatic, adLockOptimistic=20

> rs.MoveFirst

> Do While Not rs.EOF

> rs.Fields(0).Value =3D rs.Fields(0).Value * 2

> rs.Update

> rs.MoveNext

> Loop

> Using the above code; I can read the database but when I try to
update a =
> field I get the message:

> "Run-time error '-2147467259(8004005)':

> [Microsoft][ODBC dBase Driver] Cannot update. Database or object is =
> read-only."

> =20

> Can someone help me?

> So what is wrong why cant I update a field?

> Thanks

> Burhan H. Afandi

> ------=_NextPart_000_0008_01BFE13A.232F04E0
> Content-Type: text/html;
> charset="iso-8859-1"
> Content-Transfer-Encoding: quoted-printable

> <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
> <HTML><HEAD>
> <META content=3D"text/html; charset=3Diso-8859-1" =
> http-equiv=3DContent-Type>
> <META content=3D"MSHTML 5.00.2314.1000" name=3DGENERATOR>
> <STYLE></STYLE>
> </HEAD>
> <BODY bgColor=3D#ffffff>
> <DIV> 
> Hello everyone
> Can someone help me?
> What is wrong with the following Visual basic =
> code?
> I can read a field in a record but I cant update
=
> the=20
> field.
>  <?xml:namespace prefix =3D o ns =3D=20
> "urn:schemas-microsoft-com:office:office" /><o:p></o:p>
> Dim db As Connection<o:p></o:p>
>  
Set =
> db =3D New=20
> Connection<o:p></o:p>
>  =20
> db.CursorLocation =3D adUseClient yes"> =20
> <o:p></o:p>
>   =
> db.Open=20
> "PROVIDER=3DMSDASQL;driver=3DMicrosoft dBase Driver=20

(*.dbf);server=3Dc:\;uid=3D;pwd=3D;database=3Dmydatabase"<o:p></o:p>

- Show quoted text -

Quote:>  <o:p></o:p>
> Dim rs As New Recordset<SPAN=20
> style=3D"mso-spacerun: yes">
>  
Set =
> rs =3D New=20
> Recordset<o:p></o:p>
>   =
> rs.Open "select=20
> AMOUNT from C:\mydatabase\sales.dbf", db, adOpenStatic, <SPAN=20
> style=3D"mso-spacerun: =
> yes">     adLockOptimistic 
> rs.MoveFirst<o:p></o:p>
> Do While Not rs.EOF<o:p></o:p>
> rs.Fields(0).Value
=3D =

> rs.Fields(0).Value * 2<o:p></o:p>
> 0.5in">rs.Update<o:p></o:p>
> 0.5in">rs.MoveNext<o:p></o:p>
> Loop<o:p></o:p>
> Using the above code; I can read the database
but =
> when I try=20
> to update a field I get the message:
> “Run-time error =
> ‘-2147467259(8004005)’:
> [Microsoft][ODBC dBase Driver] Cannot update. =
> Database or=20
> object is read-only.”
>  <o:p></o:p>
> Can someone help me?
> So what is wrong why cant I update a field?
> Thanks
> Burhan H. Afandi</DIV></BODY></HTML>

> ------=_NextPart_000_0008_01BFE13A.232F04E0--

Sent via Deja.com http://www.deja.com/
Before you buy.

by **D. David Clar** » Fri, 30 Jun 2000 04:00:00

Change adOpenStatic to adOpenDynamic to make your recordset read/write.

rs.Open "select AMOUNT from C:\mydatabase\sales.dbf", db, adOpenStatic, adLockOptimistic

Very Computer

hello! is anyone out there?

hello! is anyone out there?

hello! is anyone out there?

hello! is anyone out there?