Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Upsizing from Access
Message
Information générale
Forum:
Visual FoxPro
Catégorie:
Base de données, Tables, Vues, Index et syntaxe SQL
Divers
Thread ID:
00632778
Message ID:
00633641
Vues:
22
Hi,
Try file #1545 as a replacement of VFPCOM:
oOleDb = CreateObject("OleDbFox.Utils")
oOleDb.RSToCursor(oRecordSet, 'mycursor')
You can also retrieve data directly into VFP cursor without using ADO:
mdbfilename = "d:\max\conversions\cec\them\as3snapshot.mdb"

oConn = CreateObject("OleDbFox.Connection")
oConn.StringOpen(("Provider = Microsoft.JET.OLEDB.4.0;Data Source = " + mdbfilename)
oConn.OpenTable("AILSRAC1100", 'mycursor')
File #10002 includes also a DBImport utility for importing data into VFP database.

>I need to get some data from an Access database, I'm using this:
>
>
>mdbfilename = "d:\max\conversions\cec\them\as3snapshot.mdb"
>
>oVFPCOM = CreateObject("vfpcom.comutil")
>
>oRecordSet = CreateObject('ADODB.RECORDSET')
>oRecordSet.CursorType = 3 && adOpenStatic Also adOpenForwardOnly
>oRecordSet.LockType = 1   && adLockReadOnly
>
>loConn = createobject('ADODB.Connection')
>loConn.open("Provider = Microsoft.JET.OLEDB.4.0;" + ;
>			"Data Source = " + mdbfilename)
>oRecordSet.ActiveConnection = loConn
>oRecordSet.Open('SELECT * FROM AILSRAC1100')
>
>nError = oVFPCOM.RSToCursor(oRecordSet, 'mycursor')
>
>BROWSE
>
>
>...It works, but all fields in the cursor are type general and empty :(
>I used MDB2VFP from John Kozoil but it's too slow for this 100000 plus recors per table database.
Précédent
Répondre
Fil
Voir

Click here to load this message in the networking platform