duda sencilla

On Wed, 14 Sep 2005 15:06:18 -0500, "Listos" wrote:

VFP no maneja conexiones OLE DB???

Por supuesto que si. Usando ADO.

Ejemplos de ADO (clásico):

http://fox.wikis.com/wc.dll?Wiki~CategoryADO
http://fox.wikis.com/wc.dll?Wiki~UsingADO
http://www.eps-software.com/knowled...ordset.htm
http://fox.wikis.com/wc.dll?Wiki~OleDB
http://fox.wikis.com/wc.dll?Wiki~VFP_OleDB_Provider

ADO Jumpstart for Visual FoxPro Developers
http://msdn.microsoft.com/library/t...DOJump.htm
http://msdn.microsoft.com/library/d...dojump.asp

Por José Marcenaro
http://www.portalfox.com/article.php?sidW0

Por Antonio Castaño
http://www.portalfox.com/article.php?


VFP Help: Cursoradapter

-
* OleDB y ADO a BD Nortwhind en Access

#Define adUseClient 3
#Define adLockBatchOptimistic 4
#Define adCmdTable 2

oConnection = CreateObject("ADODB.Connection")

*-- Abrir la conexión por medio de una cadena
oConnection.Open("Provider=Microsoft.Jet.OLEDB.4.0;Data
Source=c:\temporthwind.mdb;")

*-- extraer datos
oRecordSet = CreateObject("adodb.recordset")
*oRecordSet.Open("Select * From Customers",oConnection)

With oRecordset
.ActiveConnection = oConnection
.Source = "Select * From Customers"
.CursorLocation = adUseClient
.Open
EndWith


CREATE TABLE Customers FREE (CustID C(10), cName C(40) NULL)

oRecordSet.MoveFirst
DO WHILE NOT oRecordSet.EOF
INSERT INTO Customers (CustID, cName) ;
VALUES (oRecordSet.Fields("CustomerID").Value,
oRecordSet.Fields("CompanyName").Value)
oRecordSet.MoveNext
ENDDO

oRecordSet.Close
oConnection.Close

GO TOP
BROWSE



Alex Feldstein
________________________________
Microsoft Visual FoxPro MVP
Please respond in the public groups so that everybody
can benefit from the exchange.
Favor de responder en los foros públicos asi todos se benefician.
(address munged with ROT-13)

Blog: http://www.bloglines.com/blog/AlexFeldstein
Website: http://feldstein.net