
示例:
下面通过一个示例介绍在ASP.NET 2.0应用程序中如何查询数据库中记录。
新建一个网站,默认主页为Default.aspx,在Default.aspx页面上分别添加一个TextBox控件、一个Button控件和一个GridView控件,并把Button控件的Text属性值设为“查询”。该页在实现时,首先编写一个GridView控件数据绑定方法bind(该方法请参见5.3.2中bind方法),并在Page_Load事件中调用该方法显示数据库中记录,具体代码如下。
protected void Page_Load(object sender, EventArgs e)
{
if (!IsPostBack)
{
this.bind()
}
}
然后在【查询】按钮Click事件下编写实现数据库查询 *** 作的代码,具体代码如下。
protected void Button1_Click(object sender, EventArgs e)
{
if (TextBox1.Text != "")
{
string str = "select * from Region where RegionID='" + TextBox1.Text.Trim() + "'"
sqlconn = new SqlConnection(sqlstr)
sqlconn.Open()
SqlCommand sqlcom = new SqlCommand(str,sqlconn)
int result = Convert.ToInt32(sqlcom.ExecuteScalar())
if (result >0)
{
SqlDataAdapter myda = new SqlDataAdapter(str, sqlconn)
DataSet myds = new DataSet()
myda.Fill(myds)
GridView1.DataSource = myds
GridView1.DataBind()
sqlconn.Close()
}
else
Response.Write("<script>alert('没有相关记录')</script>")
}
else
this.bind()
}
分类: 电脑/网络 >>程序设计 >>其他编程语言解析:
连接access数据库
asp数据库
一、
<%
dim conn
dim dbpath
set conn=server.createobject("adodb.connection")
DBPath = Server.MapPath("8301")
conn.Open "driver={Microsoft Access Driver (*.mdb)}dbq=" &DBPath
%>
二、
<%
Set Conn=Server.CreateObject("ADODB.Connection")
Connstr="DBQ="+server.mappath("rc/lzh")+"DefaultDir=DRIVER={Microsoft Access Driver (*.mdb)}"
Conn.Open connstr
%>
dim ipconn
set ipconn=server.createobject("ADODB.CONNECTION")
ipconn.open "DBQ="&server.mappath("ip.mdb")&"DRIVER={Microsoft Access Driver (*.mdb)}"
dim rs,sql
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select top 1 ip_b,ip_c from ip where (ip_s<=" &ip &" and ip_e>=" &ip &")"
rs.Open sql,ipconn,1,1
if rs.eof or rs.bof then
getaddress="未知|未知"
Else
getaddress=rs(0)&"|"&rs(1)
end if
mdb数据库
一、
<%dim coon
Set Conn=Server.CreateObject("ADODB.Connection")
Connstr="DBQ="+server.mappath("***********/123.mdb")+"DefaultDir=DRIVER={Microsoft Access Driver (*.mdb)}"
Conn.Open connstr
%>
二、
dim conn
set conn = server.createobject("adodb.connection")
conn.open = "provider=microsoft.jet.oledb.4.0" &"data source = " &server.mappath("../db/bbs.mdb")
三、
<%@ language=VBs cript%>
<%
dim conn,mdbfile
mdbfile=server.mappath("数据库名称.mdb")
set conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)}uid=adminpwd=数据库密码dbq="&mdbfile
%>
set dbconnection=Server.CREATEOBJECT("ADODB.CONNECTION")
DBPath = Server.MapPath("customer.mdb")
dbconnection.Open "driver={Microsoft Access Driver (*.mdb)}dbq=" &DBPath
SQL="select * from auth where id='" &user_id &"'"
SET uplist=dbconnection.EXECUTE(SQL)
2.
set dbconnection=Server.CreateObject("ADODB.Connection")
DBPath = Server.MapPath("customer.mdb")
dbconnection.Open "provider=microsoft.jet.oledb.4.0data source="&dbpath
SQL="select * from auth where id='" &user_id &"'"
SET uplist=dbconnection.EXECUTE(SQL)
3.
DBPath = Server.MapPath("customer.mdb")
set session("rs")=Server.CreateObject("ADODB.Recordset")
' rs=Server.CreateObject("ADODB.Recordset")
connstr="provider=microsoft.jet.oledb.4.0data source="&dbpath
SQL="select * from auth where id='" &user_id &"'"
session("rs").Open sql,connstr,1,3
4.
建odbc源xxx
set conn=server.createobject("Adodb.connection")
conn.open "DSN=xxxUID=PWD=Database=customer
SetConn=Server.CreateObject("ADODB.Connection")
Connstr="DBQ="+server.mappath("aaa/bbspp1.mdb")+"DefaultDir=
DRIVER={Microsoft AccessDriver(*.mdb)}DriverId=25FIL=MSAccess
ImplicitCommitSync=Yes
MaxBufferSize=512MaxScanRows=8PageTimeout=5SafeTransactions=0
Threads=3UserCommitSync=Yes"
Conn.Openconnstr
说明: 其中SetConn=Server.CreateObject("ADODB.Connection")为建立一个访问数据的对象, server.mappath(aaa/bbspp1.mdb)是告诉服务器access数据库访问的路径
conn的内容如下:
<%
dim conn,rs
set conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)}dbq="&server.mappath("mdb/mfkiqpl.mdb ")
set rs=server.createobject("adodb.recordset")
set rs.activeconnection=conn
%>
还不懂啊 加偶的QQ 直接问吧
运行asp文件需要iis支持的。如果直接通过本地地址是打不开的,安装IIS后在信息服务器上设置你的网站主目录文件夹,然后通过在IE中输入:http://localhost/sele.htm打开文件后点击提交按钮才能运行asp文件。
安装方法很简单,插入系统光盘,点击系统可选的组件,将IIS信息服务器选中,安装即可。安装成功后在IE中输入http://localhost/ 如果出现两个页面,表示安装成功了!
然后在控制面板,管理工具中即可找到信息服务器
欢迎分享,转载请注明来源:内存溢出
微信扫一扫
支付宝扫一扫
评论列表(0条)