很简单的查询问题

Question

有一个text框 数据库student 表admin 字段admin password
怎样才能使 在text种输入一个内容 在数据库的admin表中查找相应的字段？

Answer 1

是不是 输入一个内容，需要查找出在admin字段或是password字段？
那就建立两个联结提取数据：参看下面的例子
**********************************
工程--->引用--->Microsoft ActiveX Data Object 2.x（版本号）    Dim CN   As New ADODB.Connection                '定义数据库的连接
    Dim Rs   As New ADODB.Recordset    CN.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= app.path + "\NWIND.MDB";Persist Security Info=False"
    CN.Open    Rs.CursorLocation = adUseClient
    Rs.Open "select * from employees", CN, adOpenDynamic, adLockBatchOptimistic    Set DataGrid1.DataSource = Rs
**********************************
如果数据库是SQL SERVER工程--->引用--->Microsoft ActiveX Data Object 2.x（版本号）    Dim CN   As New ADODB.Connection                '定义数据库的连接
    Dim Rs   As New ADODB.Recordset
    CN.ConnectionString = "Provider=sqloledb;Data Source=pmserver;Initial Catalog=northwind;User Id=sa;Password=sa;"
    CN.Open
    Rs.CursorLocation = adUseClient
    Rs.Open "select * from employees", CN, adOpenDynamic, adLockOptimistic
   Set DataGrid1.DataSource = Rs

Answer 2

是查找字段值还是字段？如果是字段，就在Text1_lostfocus()事件中用如下语句：
dim rs as adodb.recordset 
set rs=cn.execute("Select * student where admin='"& trim(text1.text) &"'")
if rs.recordcount=0 then
    text2.setfocus
else
    text1.setfocus
    text1.selstart=0
    text1.sellength=len(text1.text)
end if
如果是查找字段，就不舌怎样查找了。

Answer 3

工程--->引用--->Microsoft ActiveX Data Object 2.x（版本号）    Dim CN   As New ADODB.Connection                '定义数据库的连接
    Dim Rs   As New ADODB.Recordset
    CN.ConnectionString = "Provider=sqloledb;Data Source=pmserver;Initial Catalog=northwind;User Id=sa;Password=sa;"
    CN.Open
    Rs.CursorLocation = adUseClient
    Rs.Open "select * from employees", CN, adOpenDynamic, adLockOptimistic
   Set DataGrid1.DataSource = Rs

Answer 4

有一个text框 数据库student 表admin 字段admin password
怎样才能使 在text种输入一个内容 在数据库的admin表中查找相应的字段？工程--->引用--->Microsoft ActiveX Data Object 2.x（版本号）
    Dim conn   As New ADODB.Connection                '定义数据库的连接
    Dim rs   As New ADODB.Recordset
    dim sql as string
    Set conn = New ADODB.Connection
    conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & constringFile & ";Persist Security Info=True"
    conn.Open    set rs=new ADODB.Recordset
    sql="select * from admin where admin='" &text1.text& "'"
    rs.open sql,conn,1,1    if not rs.bof and rs.eof then
      msgbox"数据库中有",32,""
     else
      msgbox"数据库中没有",32,""
     end if

Answer 5

还有password是ADO的关键字之一，最好不用它作为数据库字段。出现的情况为。如果你用ADO连数据库时，如果数据库加上了密码，就出现错误了。

Answer 6

不好意思，上次没有多少时间，所以说的不是很明白，我的问题是这样的
现在有一个form  caption:form1
2个text框 Text1(0).Text,Text1(1).Text
数据库student.mdb 表admin 字段user password
请问如何才能实现登陆机制?包括普通用户和管理员权限问题
我的思路是现在text框中输入用户名和密码后用下面的语句查询
Data1.Recordset.FindFirst "user='" & Trim(Text1(0).Text) & "'"
如果输入的内容（Text1(0).Text）等于user字段中的值，（之后的语句怎么写就不会了？请大家帮忙）
我想就应该返回一个值，不知道我的思路是否正确，如果不对的话，还请大家多多帮忙~~~~ 

Answer 7

这个问题你好像开了两帖哟。
jacksonjian(不说) 说的不错呀。
另外：VB里最好不要用控件，定义对象是一个通用的方法的。即：
Dim conn   As New ADODB.Connection                '定义数据库的连接
    Dim rs   As New ADODB.Recordset
    dim sql as string