zoukankan      html  css  js  c++  java
  • 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属性:

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

  • 相关阅读:
    判断某个元素是否显示/隐藏
    文件file
    文件上传原理--FileReader
    angular搭建
    判断滚动条滚到底部
    bugDone
    webstorm界面主题
    自定义滚动条
    用电脑免费给手机发短信(转)
    c++ 面试常见问题
  • 原文地址:https://www.cnblogs.com/saixing/p/6730385.html
Copyright © 2011-2022 走看看