Simon,
This is a genuine stab in the dark...
long ago, when I worked with ACCESS a bit, I had to code a semi-colon at the end of a select statement.
Don't know if that's needed here, but might be worth a shot.
>I have been trying to use the CursorAdapter to read the info from an Access table, but I am having no luck, I have attached the code, if somebody can tell me whats wrong with the code ?
>
>DEFINE CLASS clsADOData AS CursorAdapter
> PROCEDURE Init
> This.DataSourceType = "ADO"
>
> This.AddProperty("oConn",NEWOBJECT("ADODB.Connection"))
> This.AddProperty("oRS" ,NEWOBJECT("ADODB.RecordSet"))
>
> This.oConn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\Dev\vfp8\NWind.mdb"
> This.oConn.Open()
>
> *-- Attach to The RecordSet
> This.oRS.ActiveConnection = This.oConn
>
> This.SelectCmd = "Select * From Customers"
>
> This.CursorFill()
> ENDPROC
>ENDDEFINE
>
>oAccess = CreateObject('clsADOData')
>*-- Should have a cursor with the customers, but nothing ?
>
>
>This code was modified from one that talks to SQL Server and that worked.
>
>Thanks,
>Simon.
Précédent
Suivant
Répondre
Voir le fil de ce thread
Voir le fil de ce thread à partir de ce message seulement
Voir tous les messages de ce thread
Voir tous les messages de ce thread à partir de ce message seulement