VFP and ADO

[VBFOXDEV35]

All, I am a little rusty when it comes to ADO and VFP. My question is, how do I get this code from VB to convert properly in VFP?

Any hints would help a lot. I am only stuck on how the connection strings should be set. As for the rest of ADO, I am all set. Thanks all!!!

Sub ADOFromExcelToAccess()
' exports data from the active worksheet to a table in an Access database
' this procedure must be edited before use
Dim cn As ADODB.Connection, rs As ADODB.Recordset, r As Long
' connect to the Access database
Set cn = New ADODB.Connection
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=C:\temp\eclayton.mdb;"
' open a recordset
Set rs = New ADODB.Recordset
rs.Open "loandata", cn, adOpenKeyset, adLockOptimistic, adCmdTable ' all records in a table
r = 2 ' the start row in the worksheet
Do While Len(Range("A" & r).Formula) > 0 ' repeat until first empty cell in column A
With rs
.AddNew ' create a new record
' add values to each field in the record
.Fields("FieldName1&quot = Range("A" & r).Value
.Fields("FieldName2&quot = Range("B" & r).Value
.Fields("FieldNameN&quot = Range("C" & r).Value
' add more fields if necessary...
.Update ' stores the new record
End With
r = r + 1 ' next row
Loop
rs.Close
Set rs = Nothing
cn.Close
Set cn = Nothing
End Sub

Art DeGaetano II
Software Developer, MOUS

 

[rgbean]

You might want to start by reading "ADO Jumpstart for Microsoft Visual FoxPro Developers" -

http://msdn.microsoft.com/library/en-us/dnfoxgen/html/adojump.asp.

It's a classic, and will probably answer most of your questions.

Rick

 

[wawalter]

Here is the code I use to create and return a connection. Maybe it will show you what you need.


LOCAL oConn as adodb.Connection
LOCAL cConnStr as Character

cConnStr = "provider=SQLOLEDB;" + ;
"Network Library=dbmssocn;" + ;
"user ID=" + this.sqlusername + ";" + ;
"password=" + this.sqluserpassword + ";" + ;
"Initial Catalog=" + this.sqldatabase + ";" + ;
"Data Source=" + this.sqlserver

oConn = createobject("adodb.connection&quot

oConn.CursorLocation = adUseClient
oConn.CommandTimeOut = 120
oConn.open(cConnStr)

RETURN oConn

 

[wawalter]

Sorry I forgot a couple things. My code is written in VFP7 so if your not using 7 you may not be able to declare the connection as adodb.connection.

Also, VFP doesn't support the enums like VB so you have to enter a 3 instead of adUseClient.