señor

Diviertase con ADO

oConn = CREATEOBJECT("ADODB.Connection")
oConn.ConnectionString = "Provider=VFPOLEDB.1;Data Source=C:\eFox\Data\tastrade.dbc;Password=''"
oConn.Open()

********************oConn.Open "Driver={Microsoft Visual FoxPro Driver};" & _
"SourceType=DBC;" & _
"SourceDB=c:\somepath\mySourceDb.dbc;" & _
"Exclusive=No"Provider=vfpoledb;Data Source=C:\MyDbFolder\MyDbContainer.dbc;Collating Sequence=machine;
***********************
Set conn = Server.CreateObject("ADODB.Connection")
conn.mode = 16conn.ConnectionString="Provider=VFPOLEDB;Data Source=E:\PayRoll\;Collating Sequence=general;"
conn.Open
*************
oCon =
CreateObject("ADODB.Connection")
oRst = CreateObject("ADODB.RecordSet")

cCadCon ="Provider=VFPOLEDB.1;"+"data source=c:\rutaBasedatos.dbc"
oCon.open(cCadCon)
cSQL = "select * from Tabla"

oRst = oCon.execute(cSQL)

DO While !oRst.Eof

cResult =
""

For Each oCmp
inoRst.Fields
cResult =
oCmp.Value + " - " + cResult
Next
?cResult
oRst.Movenext
EndDo
***********
SQL SERVER
************
oC = CREATEOBJECT("adodb.connection")
oC.Open("Driver={SQLServer};Server=tu_server;Uid=tu_usuario;Pwd=tu_pass;")
? OC.Execute("CREATE DATABASE ejemplo " + ;
"ON PRIMARY " + ;
"( NAME='ejemplo_dat', " + ;
"FILENAME='tu_ruta_de_archivo_.mdf', " + ;"SIZE=1, " + ;
"MAXSIZE=2, " + ;
"FILEGROWTH=1), " + ;
"LOG ON " + ;
"( NAME='ejemplo_log', " + ;
"FILENAME = 'tu_ruta_de_archivo_.ldf', " + ;
"SIZE=1, " + ;
"MAXSIZE=10, " + ;
"FILEGROWTH=1)")Para agregar la tabla en la base de datos ejemplo kreada..

oC = CREATEOBJECT("adodb.connection")
oC.Open("Driver={SQL
Server};Server=tu_server;Database=ejemplo;Uid=tu_usuario;Pw
d=tu_pass;")
?OC.Execute("create table tabla_ejem ("+;
"id int not null primary key,"+;
"nombre varchar(50) )")
****************************************
cn=NewObject('ADODB.Connection')
LOCAL lcServerName,...