怎么将access中的数据表显示到VB中

答案:1 悬赏:60 手机版

解决时间 2021-12-19 04:48

提问者网友：流星是天使的眼泪
2021-12-18 18:19

最佳答案

五星知识达人网友：北城痞子
2021-12-18 18:31

Dim Con As New ADODB.Connection     '定义ADO对象
Dim Rs As New ADODB.Recordset
Private Sub Command1_Click()
    If Text1.Text = "" Then         '控制增加值不能为空
        MsgBox "请正确输入年龄", 48, "提示信息"
    Else
        Con.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\student.mdb;Persist Security Info=False"
        Con.Open
        Set Rs = Con.Execute("UPDATe 学生基本信息 SET 年龄= 年龄+" + Text1.Text + "")       '修改表语句
        Con.Close
    End If
    Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\student.mdb;Persist Security Info=False"  '刷新ADO控件
    Adodc1.RecordSource = "select * from 学生基本信息"
    Adodc1.Refresh
    Set DataGrid1.DataSource = Adodc1
End Sub

Private Sub Form_Load()
    Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\student.mdb;Persist Security Info=False"  '初始化ADO控件
    Adodc1.RecordSource = "select * from 学生基本信息"
    Adodc1.Refresh
    Set DataGrid1.DataSource = Adodc1
End Sub

我要举报

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息