ASP.NET连接ACCESS数据库
来源:百度文库 编辑:神马文学网 时间:2024/04/26 12:01:19
注意:要运行上述ACCESS例程请先下载数据库,放在db 或 rwdata文件夹下。请将例程放在根目录下。
<%
Dim mode
mode=request.form("text4")
if mode=1 then
name=request.form("text1")
age=request.form("text2")
addr=request.form("text3")
if not isnumeric(age) then response.write "age must be number!try again":response.end
age=clng(age)
end if ‘********************************************************************
‘ 与AccessDB相关的连接信息
‘ 可以参照它建立您的数据库连接
‘********************************************************************
Dim conn,rs,dbpath
Set conn=Server.CreateObject("ADODB.Connection")
Set rs=Server.CreateObject("ADODB.RecordSet")
dbpath=Server.MapPath("rwdata/db_test_com.mdb")
conn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ="&dbpath
‘********************************************************************
‘********************************************************************
dim strsql
‘********************************************************************
‘ 读数据库相关操作
sub readdb()
strsql="select * from test"
rs.open strsql,conn,1,1
if rs.EOF then response.write "no record at all":exit sub
response.write ""
"
rs.Close
end sub
‘********************************************************************
‘********************************************************************
‘ 写数据库相关
sub insertdata()
strsql="INSERT INTO test(name,age,addr) VALUES(‘"&name&"‘,"&age&",‘"&addr&"‘)"
rs.Open strsql,conn,1,3
end sub
‘********************************************************************
if mode=1 then
call insertdata()
response.write "insert ok!"
elseif mode=2 then
call readdb()
end if
‘********************************************************************
‘ 释放数据库连接对象
set rs=nothing
set conn=nothing
%>
注意:要运行上述ACCESS例程请先下载数据库,放在rwdata文件夹下。请将例程放在根目录下。
<%
Dim mode
mode=request.form("text4")
if mode=1 then
name=request.form("text1")
age=request.form("text2")
addr=request.form("text3")
if not isnumeric(age) then response.write "age must be number!try again":response.end
age=clng(age)
end if ‘********************************************************************
‘ 与AccessDB相关的连接信息
‘ 可以参照它建立您的数据库连接
‘********************************************************************
Dim conn,rs,dbpath
Set conn=Server.CreateObject("ADODB.Connection")
Set rs=Server.CreateObject("ADODB.RecordSet")
dbpath=Server.MapPath("rwdata/db_test_com.mdb")
conn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ="&dbpath
‘********************************************************************
‘********************************************************************
dim strsql
‘********************************************************************
‘ 读数据库相关操作
sub readdb()
strsql="select * from test"
rs.open strsql,conn,1,1
if rs.EOF then response.write "no record at all":exit sub
response.write "
"&rs.Fields(i).Name&" | "
"&rs.Fields(i).Value&" | "
rs.Close
end sub
‘********************************************************************
‘********************************************************************
‘ 写数据库相关
sub insertdata()
strsql="INSERT INTO test(name,age,addr) VALUES(‘"&name&"‘,"&age&",‘"&addr&"‘)"
rs.Open strsql,conn,1,3
end sub
‘********************************************************************
if mode=1 then
call insertdata()
response.write "insert ok!"
elseif mode=2 then
call readdb()
end if
‘********************************************************************
‘ 释放数据库连接对象
set rs=nothing
set conn=nothing
%>
注意:要运行上述ACCESS例程请先下载数据库,放在rwdata文件夹下。请将例程放在根目录下。
ASP.NET连接ACCESS数据库
asp.net连接Access数据库例子
用ASP.NET/C#连接Access和SQL Server数据库
ASP连接SQL数据库
利用ASP连接各种数据库
Asp连接access添加,删除,修改2
Asp连接access添加,删除,修改2
VB利用ADO控件连接access数据库
ASP.NET2.0连接SQL Server数据库详解 - .net - CSDN技术中心
.NET(C#)连接各类数据库
如何在ASP中连接MySQL数据库
Asp连接access添加,删除,修改2v
Asp连接access添加,删除,修改1_一中电教
VB利用ADO控件连接access数据库1
NET(C#)连接各类数据库-集锦
NET(C#)连接各类数据库-集锦
ACCESS数据库
NET(C#)连接各类数据库-集锦 - .net - CSDN技术中心
ASP.NET2.0连接SQL Server数据库详解
ASP.NET2.0连接SQL Server数据库详解
ASP.NET2.0连接SQL Server数据库详解
ASP.NET2.0连接SQL Server数据库详解
ASP.net文章管理系统:数据库设计与配置
ASP.NET中利用VWD操作数据库(1-2)