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

迈不过友情╰ 2022-10-30 04:27 118阅读 0赞

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属性：

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