2.8w+
社区成员
- 主页
...全文
当前发帖距今超过3年，不再开放新的回复
发表回复
abc1314520 2004-04-12
谢谢各位..收到.
结贴.
结贴.
sxsgssgs 2004-04-12
同意楼上的，
jiffer 2004-04-12
1） MS Access数据库连接
用DSN连接并且没有用户名和密码：
<%
set conn = Server.CreateObject("ADODB.Connection")
conn.open "YourDSNName"
%>
2） 用DSN连接并且有用户名和密码：
<%
set conn = Server.CreateObject("ADODB.Connection")
conn.open "YourDSNName","username","password"
%>
3） 用实际的数据库绝对路径连接：
<%
Set conn = Server.CreateObject("ADODB.Connection")
Strconn="DRIVER={Microsoft Access Driver (*.mdb)}; "
Strconn=Strconn & "DBQ=e:\yanhang\database.mdb"
conn.Open Strconn
%>
4） 用实际的数据库相对路径连接：
<%
Set conn = Server.CreateObject("ADODB.Connection")
Strconn="DRIVER={Microsoft Access Driver (*.mdb)}; "
Strconn=Strconn & "DBQ=" & Server.MapPath("/database/yanhang.mdb")
conn.Open Strconn
%>
用DSN连接并且没有用户名和密码：
<%
set conn = Server.CreateObject("ADODB.Connection")
conn.open "YourDSNName"
%>
2） 用DSN连接并且有用户名和密码：
<%
set conn = Server.CreateObject("ADODB.Connection")
conn.open "YourDSNName","username","password"
%>
3） 用实际的数据库绝对路径连接：
<%
Set conn = Server.CreateObject("ADODB.Connection")
Strconn="DRIVER={Microsoft Access Driver (*.mdb)}; "
Strconn=Strconn & "DBQ=e:\yanhang\database.mdb"
conn.Open Strconn
%>
4） 用实际的数据库相对路径连接：
<%
Set conn = Server.CreateObject("ADODB.Connection")
Strconn="DRIVER={Microsoft Access Driver (*.mdb)}; "
Strconn=Strconn & "DBQ=" & Server.MapPath("/database/yanhang.mdb")
conn.Open Strconn
%>
说好不能打脸 2004-04-12
to :sfply(随风飘零叶)
说得好！！！
说得好！！！
sfply 2004-04-12
晕，楼主为何不自己先学，实在无法解决才来问呢？
连接数据库是ASP最基本的东西了，你随便看一个代码、一个教程都会提到。
建议楼主先自己动手，实在解决不了才来问
这样才能真正提高自己的水平！
连接数据库是ASP最基本的东西了，你随便看一个代码、一个教程都会提到。
建议楼主先自己动手，实在解决不了才来问
这样才能真正提高自己的水平！
qzriso 2004-04-12
有三种连接方式
xkou 2004-04-12
<%
Provider = "Provider=Microsoft.Jet.OLEDB.4.0;"
Path = "Data Source=" & Server.MapPath("data/data.mdb")
Set conn= Server.CreateObject("ADODB.Connection")
p1=Provider&Path
conn.Open P1 '建连接
set rs=Server.CreateObject ("ADODB.RecordSet") ‘建 adoRecordSet 对象
rs.open "select * from tablename",conn,1,3
dd=rs("jj") '取得字段名为 jj 的什
rs.close '关闭所有
set rs=nothing
conn.close
Provider = "Provider=Microsoft.Jet.OLEDB.4.0;"
Path = "Data Source=" & Server.MapPath("data/data.mdb")
Set conn= Server.CreateObject("ADODB.Connection")
p1=Provider&Path
conn.Open P1 '建连接
set rs=Server.CreateObject ("ADODB.RecordSet") ‘建 adoRecordSet 对象
rs.open "select * from tablename",conn,1,3
dd=rs("jj") '取得字段名为 jj 的什
rs.close '关闭所有
set rs=nothing
conn.close
chenanping 2004-04-12
http://www.buckjump.com/bbs/dispbbs.asp?boardID=21&ID=189
银狐被占用 2004-04-12
set conn=server.createobject("ADODB.Connection")
sql="driver={sql server};database=Color4day;server=202.108.43.29;uid=sa;pwd=go4map"
conn.open sql
set rs = server.createobject("ADODB.Recordset")
s_sql = "select * from tablename"
rs.open s_sql,conn,1,3
while not rs.eof
aa=rs("field1")
rs.movenext
Wend
sql="driver={sql server};database=Color4day;server=202.108.43.29;uid=sa;pwd=go4map"
conn.open sql
set rs = server.createobject("ADODB.Recordset")
s_sql = "select * from tablename"
rs.open s_sql,conn,1,3
while not rs.eof
aa=rs("field1")
rs.movenext
Wend
