First-this method is used in access with the most
The code is as follows |
Copy Code |
Dim conn,strconn strconn = "Driver=microsoft Access DRIVER (*.mdb);D bq=" & Server.MapPath ("Aspfree.mdb") Set conn = Server.CreateObject ("Adodb.connection") Conn.Open strconn
|
The second type-this method is used in SQL Server for more
The code is as follows |
Copy Code |
strconn = "Driver={sql erver};D Escription=sqldemo; server=127.0.0.1; Uid=loginid;&_ Pwd=password;database=database_name Set conn = Server.CreateObject ("Adodb.connection") Conn.Open strconn
|
Third Kind
The code is as follows |
Copy Code |
Strconn= "Driver={microsoftaccessdriver (*.mdb)};" &_ "Dbq=f:inetpubwwwrootsomedirdb1.mdb;defaultdir=f:inetpubwwwrootsomedir; &_ Uid=loginid; "&_ "Pwd=password;driverid=25;fil=msaccess;" Set conn = Server.CreateObject ("Adodb.connection") Conn.Open strconn
|
Fourth application of system data sources
The code is as follows |
Copy Code |
The following uses a Data Source Name: Set conn = Server.CreateObject ("Adodb.connection") Conn.Open "Example"
|
The fifth way to use ODBC data sources is if you have to set up the data source in the Control Panel ODBC
The code is as follows |
Copy Code |
Set rs = Server.CreateObject ("Adodb.recordset") Rs.Open "Tblname", "DSNname", 3, 3 1. Set Dbconnection=server.createobject ("ADODB. CONNECTION ") DBPath = Server.MapPath ("Customer.mdb") DbConnection. Open "Driver={microsoft Access driver (*.mdb)};d bq=" & DBPath Sql= "SELECT * from auth where id=" "& user_id &" "" SET uplist=dbconnection. EXECUTE (SQL) 2. Set Dbconnection=server.createobject ("ADODB. Connection ") DBPath = Server.MapPath ("Customer.mdb") DbConnection. Open "Provider=Microsoft.Jet.OLEDB.4.0;Data source=" &dbpath Sql= "SELECT * from auth where id=" "& user_id &" "" SET uplist=dbconnection. EXECUTE (SQL) 3. DBPath = Server.MapPath ("Customer.mdb") Set session ("RS") =server.createobject ("ADODB"). Recordset ") "Rs=server.createobject (" ADODB.) Recordset ") Connstr= "Provider=Microsoft.Jet.OLEDB.4.0;Data source=" &dbpath Sql= "SELECT * from auth where id=" "& user_id &" "" Session ("RS"). Open sql,connstr,1,3 4. Build ODBC source XXX Set Conn=server.createobject ("Adodb.connection") Conn.Open "DSN=XXX; uid=; pwd=;D Atabase=customer even |
Access MySQL Database
' Test read the contents of the MySQL database
The code is as follows |
Copy Code |
strconnection= "Driver={mysql ODBC 3.51 driver};d atabase=weste_net;server=localhost;uid=root;password=" ' No need to configure DSN Set adodataconn = Server.CreateObject ("Adodb.connection") Adodataconn.open strconnection |