UC知道想用VB实现数据查询,怎么就这么难啊?
来源：百度知道 编辑：UC知道 时间：2024/06/02 20:52:34
实现数据查询我们的实验课作业
程序如下,运行以后,页面自动就把我数据库里面的东西显示出来了...
我还没查呢...
附:我学习VB一个星期不到,这些程序代码都是找来的...对于这一块十分混沌,请高手指教.....
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>test5</title>
</head>
<body><form action="" method="post">输入你想要查询的学号
<input name="id" type="text" id="id" size="11" maxlength="11">
<input type="submit" name="Submit" value="提交">
<%
dim a
a=request.Form("id")
Set co
程序如下,运行以后,页面自动就把我数据库里面的东西显示出来了...
我还没查呢...
附:我学习VB一个星期不到,这些程序代码都是找来的...对于这一块十分混沌,请高手指教.....
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>test5</title>
</head>
<body><form action="" method="post">输入你想要查询的学号
<input name="id" type="text" id="id" size="11" maxlength="11">
<input type="submit" name="Submit" value="提交">
<%
dim a
a=request.Form("id")
Set co
<%
dim a
a=request.Form("id")
Set conn=Server.CreateObject("ADODB.Connection")
conn.Open "provider=microsoft.jet.oledb.4.0;data source=d:\04083234\info.mdb"
'下面两名看不出来有什么用处
'sql="insert into test(a) values('"&a&"')"
'sql="select sco as sm from test where a='#"&a&"#'"
set rs=server.CreateObject("adodb.recordset")
'这句就是你说为什么没查询没出来所有结果的原因在后面加where子句就行了
'就是你得到的ID对应到相应的数据表列就行了。
sqlstr="select * from info where 数据表中对应的列 like '%"&a&"%'"
rs.open sqlstr,conn,1,3
rs.movefirst
while not rs.eof
response.Write " 此人姓名为: "&rs("name")&""
rs.movenext
wend
rs.close
conn.close
set rs=nothing
set conn=nothing
%>
把上面的代码替换<%%>中的代码就行了。
你这里先需设计好数据库及数据表的结构