最美的香港女星:VB数据库问题

Sqlstr = "Select * From [Pass] Where Pass='" & UserName & "'"
'打开数据库
DB = "data/data.mdb"
ConnStr = "Provider=Microsoft.JET.OLEDB.4.0;Data Source=" & Server.MapPath(DB)
Set Conn = Server.CreateObject("Adodb.Connection")
Conn.Open ConnStr
Set Rs = Server.CreateObject("Adodb.RecordSet")
Rs.Open Sqlstr, Conn, 1, 3

引用Microsoft VBScript Regular Expressions 5.5
Microsoft Active Server Pages Object Library
COM+ Services Type Library
OLE Automation
Visual Basic Objects and procedures
Visual Basic Runtime objects and procedures
Visual Basic For Applications

VB编译成DLL在ASP调用成功

adodc1的属性设置：
connectstring:根据情况而定，你应该知道。如“Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\NWIND.MDB;Persist Security Info=False”
，,你要用的话，可以用那个对话框引导你完成，不要你自己写的。不要复制我这个语句，绝对路径可能跟你的不一致。
commandtype:设成adcmdtext。
recordersource:写查询语句。如“select * from customers”

datagrid1的属性设置：
DataSource:选成adodc1.

搞定，一句代码都不用写，也可以写代码，在代码中给以上属性赋值，还可以考虑用引用ado。

要开数据表时可以通过SQL语句的where条件，就可能打开符合条件的数据了。再绑定datagrig控件就行了。