* 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:\temp\northwind.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