|
Dim objRS as New ADODB.Recordset objRS.Open "SELECT CustomerID, CompanyName FROM CUSTOMERS", _ "Provider=Microsoft.Jet.OLEDB.4.0;" "Data Source=c:\path to file\Nwind.mdb" 'Do Recordset work here. objRS.Close Set objRS = Nothing Oppure Dim objRS as New ADODB.Recordset objRS.Open "SELECT CustomerID, CompanyName FROM CUSTOMERS", _ "DSN=NorthwindDSN" 'Do Recordset work here. objRS.Close Set objRS = Nothing oppure Set conn = Server.CreateObject("ADODB.Connection") conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & server.MapPath("/dati/miodatabase.mdb") oppure strConn = "driver=MySQL;server=localhost;uid=user;pwd=pass;database=db" Set Conn = Server.CreateObject("ADODB.Connection") conn.Open strConn |