Rafael Copquin wrote:
>> I am beginning to use VFP9 as a front end and SQL server as a backend. I
>> wonder if any of you can help with examples of code to use ADO with VFP.
>>
>> I'd like an example for retrieving data from a SQL database, ie:
>>
>> select * from customers where custid = ?nCustId
>>
>> and one on how to send update information, such as:
>>
>> update customers set lastname = 'Smith' where custid = ?nCustId
Rafael,
I can't help with ADO, because I don't use it, but to do the above, I
use something like this: (Off the top of my head)
1) Create a connection on the SQL server (I can give you more info, if
neeeded)
2)
nHandle = SqlConnect("MyConnection")
if nHandle < 0
* some sort of error message
RETURN
endif
cSQL = "Select * from Customers where custid = " + Transform(nCustID)
nResult = SQLEXec(nHandle, cSQL, "MyCursor")
if nResult < 0
messagebox(message()) && Some sort of error handling
endif
Select MyCursor
scan
&& blah blah blah
endscan
cSQL = "update customers set lastname = 'Smith' where custid = " +
transform(nCustId)
nResult = SQLEXec(nHandle, cSQL, "")
* etc
_______________________________________________
Post Messages to: [email protected]
Subscription Maintenance: http://leafe.com/mailman/listinfo/profox
OT-free version of this list: http://leafe.com/mailman/listinfo/profoxtech
Searchable Archive: http://leafe.com/archives/search/profox
This message:
http://leafe.com/archives/byMID/profox/[email protected]
** All postings, unless explicitly stated otherwise, are the opinions of the
author, and do not constitute legal or medical advice. This statement is added
to the messages for those lawyers who are too stupid to see the obvious.
