高手帮我,我把所有积分都给你!求你了!
我现在有几个ACCESS数据库连接不知道怎么写成SQL的.麻烦高抬贵手!帮我一下!救人一命,胜过7级浮屠啊!第一个:-------------------------<%...
我现在有几个ACCESS数据库连接不知道怎么写成SQL的.麻烦高抬贵手!帮我一下!救人一命,胜过7级浮屠啊!
第一个:
-------------------------
<%
dim connPlus,connstrPlus,dbPlus
'更改数据库名字
dbPlus="Data/Dv_Plus_Tools.mdb"
Set connPlus = Server.CreateObject("ADODB.Connection")
connstrPlus="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(dbPlus)
'如果你的服务器采用较老版本Access驱动,请用下面连接方法
'connstr="driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath(db)
connPlus.Open connstrPlus
function CloseConnPlus
on error resume next
connPlus.close
Set connPlus = Nothing
End Function
%>
----------------------------
第二个:
dim dbdown,conndown,downstr
dbdown="data/Dv_Plus_Tools2.mdb" '下载数据库名
Set conndown = Server.CreateObject("ADODB.Connection")
downstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(dbdown)
conndown.Open downstr
--------------------------------------
第三个:
<%
dim l_conn,l_connstr,l_db
l_db="data/Dv_Plus_Tools2.mdb"
Set l_conn = Server.CreateObject("ADODB.Connection")
l_connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(l_db)
l_conn.Open l_connstr
function l_CloseDatabase
l_Conn.close
Set l_conn = Nothing
End Function
%>
---------------------
第四个:
<%
dim dbfy,fystr,connplus
dbfy="DV_plus/fayuan/plus_fayuan_db.mdb" '请改成您自己的法院数据库文件名
Set connplus = Server.CreateObject("ADODB.Connection")
fystr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(dbfy)
connplus.Open fystr
%>
------------------------------
希望大家帮帮我啊!我都哭死了!!!!!!!!!! 展开
第一个:
-------------------------
<%
dim connPlus,connstrPlus,dbPlus
'更改数据库名字
dbPlus="Data/Dv_Plus_Tools.mdb"
Set connPlus = Server.CreateObject("ADODB.Connection")
connstrPlus="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(dbPlus)
'如果你的服务器采用较老版本Access驱动,请用下面连接方法
'connstr="driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath(db)
connPlus.Open connstrPlus
function CloseConnPlus
on error resume next
connPlus.close
Set connPlus = Nothing
End Function
%>
----------------------------
第二个:
dim dbdown,conndown,downstr
dbdown="data/Dv_Plus_Tools2.mdb" '下载数据库名
Set conndown = Server.CreateObject("ADODB.Connection")
downstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(dbdown)
conndown.Open downstr
--------------------------------------
第三个:
<%
dim l_conn,l_connstr,l_db
l_db="data/Dv_Plus_Tools2.mdb"
Set l_conn = Server.CreateObject("ADODB.Connection")
l_connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(l_db)
l_conn.Open l_connstr
function l_CloseDatabase
l_Conn.close
Set l_conn = Nothing
End Function
%>
---------------------
第四个:
<%
dim dbfy,fystr,connplus
dbfy="DV_plus/fayuan/plus_fayuan_db.mdb" '请改成您自己的法院数据库文件名
Set connplus = Server.CreateObject("ADODB.Connection")
fystr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(dbfy)
connplus.Open fystr
%>
------------------------------
希望大家帮帮我啊!我都哭死了!!!!!!!!!! 展开
展开全部
<%
on error resume next
dim conn
dim dbpath
dbpath=server.mappath("uadmin/db/dbdb1.mdb")
set conn=server.createobject("adodb.connection")
'conn.open "Driver={Microsoft Access Driver (*.mdb)};dbq="&dbpath
conn.open "Provider=Microsoft.Jet.Oledb.4.0;Data Source="&dbpath
%>
on error resume next
dim conn
dim dbpath
dbpath=server.mappath("uadmin/db/dbdb1.mdb")
set conn=server.createobject("adodb.connection")
'conn.open "Driver={Microsoft Access Driver (*.mdb)};dbq="&dbpath
conn.open "Provider=Microsoft.Jet.Oledb.4.0;Data Source="&dbpath
%>
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询