MS Access数据库连接
用DSN连接并且没有用户名和密码:
<%
set conn = Server.CreateObject("ADODB.Connection")
conn.open "YourDSNName"
%>
用DSN连接并且有用户名和密码 :
<%
set conn = Server.CreateObject("ADODB.Connection")
conn.open "YourDSNName","username","password"
%>
用实际的数据库绝对路径连接:
<%
Set conn = Server.CreateObject("ADODB.Connection")
Strconn="DRIVER={Microsoft Access Driver (*.mdb)}; "
Strconn=Strconn &; "DBQ=e:\yanhang\database.mdb"
conn.Open Strconn
%>
用实际的数据库相对路径连接:
<%
Set conn = Server.CreateObject("ADODB.Connection")
Strconn="DRIVER={Microsoft Access Driver (*.mdb)}; "
Strconn=Strconn &; "DBQ=" &; Server.MapPath("/database/yanhang.mdb")
conn.Open Strconn
%>
MS sql server数据库连接
用DSN连接:
<%
set conn = Server.CreateObject("ADODB.Connection")
conn.open "DSN=MyDSN;UID=user;PWD=password;DATABASE=databasename"
%>
不用DSN连接:
<%
Set conn = Server.CreateObject("ADODB.Connection")
DSNtemp="DRIVER={
sql server};SERVER=ServerName;UID=USER;PWD=pass
word;DATABASE=databasename"
conn.open DSNtemp
%>
FoxPro数据库连接
<%
Set Conn = Server.CreateObject("ADODB.connection")
ConnStr= "Driver=Microsoft Visual Foxpro Driver; UID=userID;SourceType=DBC;SourceDB=C:\yanhang\database.dbc"
Conn.Open ConnStr
%>
Oracle数据库连接:
<%
set conn=server.createobject("adodb.connection")
conn.cursorlocation=adUseClient
DSNTemp="Provider=MSDAORA.1;Password=xxxxx;User ID=yanhang;Data Source=xxx.world"
conn.open DSNtemp
%>
<%
'--------------连接Access数据库db1.mdb------------------
AccessDbUrl="/Db/" 'Access数据库地址
Set Conn=Server.CreateObject("ADODB.Connection")
'conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&;server.mappath(AccessDbUrl)&;"db1.mdb"
'----------------------------------------------------
Set rs=conn.Execute("SELECT * FROM table1") '返回数据表table1中的所有记录
'-------列出表中所有记录--------
Do While Not rs.Eof '当数据表连接不为空时执行循环
Response.Write(rs("字段名一")&;" "rs("字段名二")) '输出当前记录的所有字段,中间用空格隔开,多个字段请自行添写
rs.Novenext '将指针移动到下一条记录
Loop '结束循环
'-------------------------------
'-------关闭数据表连接-------
rs.Close
Set rs=Nothing
'-----------------------------
'----------关闭数据库连接------
conn.Close
Set conn=Nothing
'------------------------------
%>
<%
'--------------连接SQL Server数据库database1------------------
Set Conn=Server.CreateObject("ADODB.Connection")
Conn.Open "Driver={SQL Server};Description=sqldemo;SERVER=CDHC10;UID=SQL登陆用户;Password=SQL
登陆密码;DATABASE=database1"
'----------------------------------------------------
Set rs=conn.Execute
("SELECT * FROM table2") '返回数据表table2中的所有记录
'-------列出表中所有记录--------
Do While Not rs.Eof '当数据表连接不为空时执行循环
Response.Write(rs("字段名一")&;" "rs("字段名二")) '输出当前记录的所有字段,中间用空格隔开,多个字段请自行添写
rs.Novenext '将指针移动到下一条记录
Loop '结束循环
'-------------------------------
'-------关闭数据表连接-------
rs.Close
Set rs=Nothing
'-----------------------------
'----------关闭数据库连接------
conn.Close
Set conn=Nothing
'-----------------------------
%>