vb如何将数据库中某个字段显示在一个文本框

    Dim mrc As ADODB.Recordset  

Private Sub cmdQuery_Click()
    Dim txtSQL As String
    Dim MsgText As String

    txtSQL = "select * from student_Info"
    Set mrc = ExecuteSQL(txtSQL, MsgText)
    Call viewData
	’调用该函数

    Set txtMoney.DataSource = mrc
    txtMoney.DataField = "cash"
End Sub

Private Sub Form_Load()
     Dim MsgText As String
     Dim txtSQL As String

    txtSQL = "select * from student_Info"
    Set mrc = ExecuteSQL(txtSQL, MsgText)    '得到student表，并显示出来

    'select得到的临时表，游标指向尾记录，在Access中指向第一条

    mrc.MoveFirst         

End Sub

Private Sub viewData()

    txtStudentno.Text = mrc.Fields(1)
    txtstudentName.Text = mrc.Fields(2)            ' 把临时表中当前记录赋给文本框
    txtsex.Text = mrc.Fields(3)
    txtDepartment.Text = mrc.Fields(4)
    txtGrade.Text = mrc.Fields(5)
    txtClassno.Text = mrc.Fields(6)
    txtstatus.Text = mrc.Fields(10)
    txtcomment.Text = mrc.Fields(8)
    txtMoney.Text = mrc.Fields(9)

End Sub

注：

文本框的DataField属性：

返回/设置一个值，将控件绑定到当前记录的一个字段。

DataSource属性：

设置一个数值，指出数据控件通过它将当前控件绑定到数据库。