怎样在asp.net中连接ACCESS数据库?

在asp.net中连接ACCESS数据库有两种方法，具体操作如下：

第一种方法,就是真接在在设计页面上拉一个控件,例如GridView、DataList,点击右上角那个三角符,新建数据源,在跳出的对话框选择数据库,新建连接,在添加连接对话框的更改那里选择Access数据库,之后在浏览那里选择你的数据库,测试成功的话,接下来的,就比较容易了。

连接数据库第二种方法：是从图中的ConnctionStr中选择<新建连接?>然后将会弹出如下窗口；选择好数据库的类型 “下一步”后 选择数据库的正确位置。

(测试连接 成功后)单击确定,然后(双击编辑窗口任意空白位置)打开对应的cs文件,将会看到程序中自动加入了protected System.Data.OleDb.OleDbConnection MyConnection代码。

现在要打开数据库变得很简单了,你只要使用MyConnection.Open()//数据库就打开了。

Set conn=Server.CreateObject("ADODB.Connection")

connstr="Provider=Microsoft.Jet.OLEDB.4.0Data Source="&Server.MapPath("1.mdb")

conn.Open connstr

sql="insert into 2 (name,pass) values ('"&request("name")&"','"&request("textfield2")&"')"

conn.execute sql

conn.close

set conn=nothing

%>

dim date_base

date_base = 0 '1为MSSQLServer2000,其他为Access

set conn=server.CreateObject("adodb.connection")

if date_base = 1 then

dim dbconn,dbvip,dbdns,dbname,dbuid,dbpwd

%><!--

dbconn 链接方式 1为OLEDB链接 2为驱动链接 3为DNS链接

dbip数据库所在的IP地址，如果是本地数据库则为："(local)"

dbdns 数据库DNS名

dbname 数据库名称

dbuid 数据库用户名

dbpwd 数据库密码

-->

<%

dbconn = 2

dvip = "(local)"

dbdns = "cheermill"

dbname = "msow"

dbuid = "sa"

dvpwd = "" select case dbconn

case 1

conn.open "Provider=SQLOLEDBUser Password="&dbpwd&"Initial Catalog="&dbname&"Data Source="&dbip&""

case 2

conn.open "DRIVER={SQL Server}SERVER="&dbip&"UID="&dbuid&"PWD="&dbpwd&"DATABASE="&dbname&""

case 3

Conn.open "DSN="&dbdns&"UID="&dbuid&"PWD="&dbpwd&"DATABASE="&dbname&""

end select

else

dim db_name,db_pwd,db_version

%>

<!--

db_name为access数据名称

db_pwd为access数据库密码,如无密码可不填写,代码自动判断选择语句。

-->

<%db_name = "../../database/data.accdb"

'db_name = "#shenhuidata.asa"

db_pwd = "" if db_pwd = "" then

conn.open "Provider = Microsoft.Ace.OLEDB.12.0Data Source = "&Server.MapPath(db_name)

else

conn.open "Provider = Microsoft.Ace.OLEDB.12.0Data Source = "&Server.MapPath(db_name)&"Ace OLEDB:Database Password="&db_pwd&""

end if

end if

if err then

err.clear

conn.close

set conn=nothing

response.Write "<center><font color=#FF6600><strong>数据库连接出错,请检测连接设置...</strong></font></center>"

response.End

end if

%>