oConnection = CreateObject("adodb.connection") lcConnectionString = "Driver=Microsoft Visual Foxpro Driver; " +; "UID=;"+; "SourceType=DBC;"+; "SourceDB=C:\Program Files\Microsoft Visual Studio\MSDN98\98VS\1033\Samples\VFP98\data\TestData.dbc" oConnection.open(lcConnectionString) oRecordSet = CreateObject("adodb.recordset") oRecordSet.Open("SELECT * FROM customer", oConnection)SQL Passthrough connecting to SQL Server
lcConnectionStr = "DRIVER={SQL Server};" +; "SERVER=YourServerName"+";" +; "DATABASE=northwind"+";" +; "UID=sa"+";" +; "PWD=" lnSql = SQLSTRINGCONNECT(lcConnectionStr) SQLEXEC(lnSql, "SELECT * FROM Customers", "Customers")SQL Passthrough connecting to MS Access
lcConnectionStr = "DRIVER={Microsoft Access Driver (*.mdb)};" +; "Dbq=c:\temp\northwind.mdb;" +; "Uid=Admin;" +; "Pwd=;" lnAccess = SQLSTRINGCONNECT(lcConnectionStr) SQLEXEC(lnAccess, "SELECT * FROM Customers", "Customers")For more connection strings, check out the following link: