新人 请教个数据库的问题

[cheng1227]

<%
Dim Conn,Driver,DBPath,Rs
' 建立Connection对象
Set Conn = Server.CreateObject("ADODB.Connection")
Driver = "Driver={Microsoft Excel Driver (*.xls)};"
DBPath = "DBQ=" & Server.MapPath("9.xls")
'调用Open 方法打开数据库
Conn.Open Driver & DBPath
'DSN连接方式
'Conn.Open "Dsn=book"
'注意 表名一定要以下边这种格试 "[表名$]" 书写
Sql="Select * From [9$] "
Set Rs=Conn.Execute(Sql)
IF Rs.Eof And Rs.Bof Then
Response.write "没有找到您需要的数据!!"
Else
Do While Not Rs.EOF

Response.write Rs("会员卡号")
Response.write "   "
Response.write Rs("会员积分")
Response.write "<br>"
Rs.MoveNext
Loop
End IF
Rs.Close
Set Rs=nothing
Conn.Close
Set Conn=Nothing
%>

///以上 代码是 全部显示了 9.xls 里面的 会员卡号.和会员 积分.

但是我想指定 查询 会员卡号是 1111 的会员积分.代码应该如何写?

如果 加一个文本框 和一个 按钮 用来输入 会员卡号.得到积分.该怎么写?

麻烦给出 代码! 因为我不懂..谢谢.

[lzp4881]

Sql="Select * From [9$] where 会员卡号='1111'"

[cheng1227]

如果 加一个文本框 和一个 按钮 用来输入 会员卡号.得到积分.该怎么写?

[webdevelop]

　　1、FSO找到excel文件

<%
Dim fso,folder,file
Set fso　　= Server.CreateObject("Scripting.FileSystemObject")
Set folder = fso.GetFolder(Server.MapPath("data"))
　　
Dim name
For Each file in folder.Files
name = fso.GetBaseName(file)
%>
<li><%=name%></li>
<%
Next
%>

　　2、连接excel文件，获取第一个sheet的name

<%
//建立Connection对象
Set Conn_qc = Server.CreateObject("ADODB.Connection")
Driver = "Provider=Microsoft.Jet.OLEDB.4.0;"
DBParm = "Extended Properties=""Excel 8.0;HDR=Yes;IMEX=1"";"
//调用Open 方法打开数据库
DBPath = "Data Source=" & Server.MapPath("data" & table & ".xls") & ";" '注意：此处的table变量为文件名，可由上一个方法得到
Conn_qc.Open Driver & DBPath & DBParm
//获取第一个sheet的名称
Set rs=Conn_qc.OpenSchema(20)
TableName = rs("Table_name")
rs.Close
//查询数据
Sql="Select * From [" & TableName & "]"
　　
//response.write(sql)
'Set Rs=Conn.Execute(Sql)
rs.open sql, Conn_qc, 1, 1 '此处可以解决recordcount为 -1 的问题
if rs.recordcount<>0 then
%>
<table width="100%" border="0" cellpadding="0" cellspacing="0" >
<tr>
<%for i=0 to rs.fields.count-1%>
<td align="center" valign="middle" bgcolor="#F2F8FF" ><% =rs(i).Name %></td>
<%next%>
</tr>
<tr>
<%for i=0 to rs.fields.count-1%>
<td align="center" valign="middle" class="f"><%=rs(i)%></td>
<%next%>
</tr>
</table>
<%
end if
rs.close
set rs=nothing
Conn_qc.close
%>