望京几个韩国城:VB数据库问题
来源:百度文库 编辑:查人人中国名人网 时间:2024/05/10 06:28:55
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控件就行了。