Everything about ADO

[dickylam]

Anybody can help me.

I use VFP as front -end and user interface. I use SQL 2000 as datbase.

I created adodb.connection and adodb.recordset
Let say,

xobj = createobject("adodb.connectio&quot
zobj = createobject("adodb.recordset&quot

However, I do not the syntax how to write open as I tried many...

Suppose, I type:-

zobj.open("table",xobj)

the system will show something (OLE IDispatch exception code 0 ....)

what's wrong on my command ?

please

 

[rgbean]

Go to

http://msdn.microsoft.com/vfoxpro/technical/articles/comactivex.asp

- and choose "ADO Jumpstart for Visual FoxPro Developers" it's a classic paper. Then the articles at

http://msdn.microsoft.com/vfoxpro/technical/articles/clientserver.asp

may help.

Rick

 

[dickylam]

hello rgbean,

Thanks for your advise. However, these document I have seen before and feel too old, do you have other newer articles for reference.

 

[robsuttonjr]

I tested this code against SQL 7 via Fox 7 but it should work with SQL 2000 as long as the driver is the same. Anyway it is simple to create the connectstring by doing this:create a blank file called server.udl
open the file by typing server.udl in windows - start/run
follow prompts and create connection string. Then notepad the server.udl file and extract the connectionstring. In the sample below the Catalog is the database your are connecting to. The actual table is in the oRst.Open sql statement select * from ...

Here is a basic program that worked for me with obvious items changed to protect the innocent:


oCon=CREATEOBJECT("ADODB.connection&quot
oCon.CursorLocation= 3 && adUseClient
oCon.Open("Provider=SQLOLEDB.1;Password=password;Persist Security Info=True;User ID=sa;Initial Catalog=myDatabase;Data Source=192.168.1.1&quot

oRst=CREATEOBJECT("ADODB.recordset&quot
oRST.ActiveConnection=oCon
oRst.Open("SELECT * FROM myTable&quot

DO WHILE !oRst.EOF
?oRst.Fields.Item(0).Value
?oRst.Fields.Item(1).Value
?oRst.Fields.Item(3).Value
oRst.movenext
ENDDO

oRst.Close
oCon.Close
oRst=NULL
oCon=NULL