在一个text中输入学号，另一个text显示出相对应的姓名，如何解决？

Question

本帖最后由 manaofeizhu 于 2011-05-08 18:08:07 编辑

Answer 1

Private Sub Command1_Click()
'在VB菜单：工程->引用 里面找 Microsoft ActiveX Data Object 2.8 Library,并勾选上
'在窗体的Form_Load事件里面写如下代码：
    Dim cn As New ADODB.Connection
    Dim rst As New ADODB.Recordset
    Dim SqlStr As String
    cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db1.mdb;Mode=ReadWrite;Persist Security Info=False;Jet OLEDB:Database Password=111"
    SqlStr = "Select * From 学生信息表 where 学号 = '" & Text1.Text & "'"
    rst.CursorLocation = adUseClient
    rst.Open SqlStr, cn, adOpenDynamic, adLockOptimistic, adCmdText '打开记录集
    Text2.Text = rst.Fields("学生姓名").Text
End Sub

Answer 2

下面是我的代码：
Private Sub Command4_Click()
     Adodc2.RecordSource = "select * from 姓名  where 学号 ='" & Text3.Text & "' "
     Text4.Text = Adodc2.Recordset.Fields("姓名")
End Sub不知道为什么，不管我输入哪个学号，第二个text文本框都是显示数据库 
{学生信息表} 里面的第一个学号 学生的姓名，求解！！

Answer 3

以上代码数据库是ACCESS，数据库的打开密码是111
学号字段用的类型是文本

Answer 4

from 后面是表名，不是字段名
不再回复

Answer 5

学号 字段 varchar（10），姓名字段类型 varchar（20）.

Answer 6

  我的数据库是SQL 2005，不是ACCESS