已经用Adodc控件连接好数据库... 通过text文本框控件可以正常的浏览和增加数据... 现在想增加个功能... 例如:通过text1的值"学号".来查询数据库该条数据的"姓名"字段... 然后把值保存在text2内... 只要查询和保存这段代码就可以... 会做的帮帮忙..谢谢了...  
 

解决方案 »

  1.   

    把text2的datafield绑定“姓名”字段,在属性栏里改,试试看。
      

  2.   


    Dim rs As New ADODB.Recordset
    Dim sql as Stringsql = "select 姓名 from 表 where 学号 = **** "                    '***表示你要查询的学号值,你要设置一个变量用来动态查询
    rs.Open sql, conn, adOpenKeyset, adLockReadOnlyIf Not rs.EOF Then 
        Text2.text = rs.Fields(1)    '1是你姓名字段在表中的位置
    End Ifrs.Close
    Set rs = nothing
      

  3.   

    Adodc1.RecordSource = "select * from 表名where 学号='" & Trim(Text1.Text) & "' "
    Adodc1.Refresh
    Text2.Text = Adodc1.Recordset.Fields("姓名")