Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Upsizing from Access
Message
General information
Forum:
Visual FoxPro
Category:
Databases,Tables, Views, Indexing and SQL syntax
Miscellaneous
Thread ID:
00632778
Message ID:
00633641
Views:
21
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.
Previous
Reply
Map
View

Click here to load this message in the networking platform