Ado en VFP y Componentes
Estoy tratando de crear componentes con VFP que accedan a SQL server y devuelvan un cursor.
¿Tengo qué hacerlo con ADO?
¿Cómo hago para trabajar con ADO en VFP?
Gracias
¿Tengo qué hacerlo con ADO?
¿Cómo hago para trabajar con ADO en VFP?
Gracias
1 Respuesta
Respuesta de grego
1
No es mucho lo puedas hacer, necesitas el MDAC(Microsoft Data Access Componet)
http://msdn.microsoft.com/vfoxpro/downloads/updates.asp
Si usas win95, 98 y NT
Elijes:
Visual FoxPro ODBC Driver
Ejemplo:
Usando ADO en access:
lcConnect="Provider=Microsoft.Jet.OLEDB.4.0;Password=mypass;User ID=myuser;Data Source=C:\mypath\mydatabase.mdb;Persist Security Info=True"
lnAffected=0
lcSQL="INSERT INTO Table2 SELECT * FROM Table1"
oConnection = CreateObject('ADODB.Connection')
oConnection.Open(lcConnect)
IF oConnection.State = 1 && connected sucessfully
oConnection.Execute(lcSQL,@lnAffected)
IF lnAffected > 0
WAIT WIND "Data Transfer: "+TRAN(lnAffected)+"Records"
ENDIF
ELSE
WAIT WIND "Unable to connect"
Endif
Suerte!
http://msdn.microsoft.com/vfoxpro/downloads/updates.asp
Si usas win95, 98 y NT
Elijes:
Visual FoxPro ODBC Driver
Ejemplo:
Usando ADO en access:
lcConnect="Provider=Microsoft.Jet.OLEDB.4.0;Password=mypass;User ID=myuser;Data Source=C:\mypath\mydatabase.mdb;Persist Security Info=True"
lnAffected=0
lcSQL="INSERT INTO Table2 SELECT * FROM Table1"
oConnection = CreateObject('ADODB.Connection')
oConnection.Open(lcConnect)
IF oConnection.State = 1 && connected sucessfully
oConnection.Execute(lcSQL,@lnAffected)
IF lnAffected > 0
WAIT WIND "Data Transfer: "+TRAN(lnAffected)+"Records"
ENDIF
ELSE
WAIT WIND "Unable to connect"
Endif
Suerte!
