VB DATAGRID

最新推荐文章于 2021-02-04 23:19:34 发布

残剑

最新推荐文章于 2021-02-04 23:19:34 发布

阅读量500

点赞数

分类专栏： VB 文章标签： datagrid vb cmd integer security 存储

本文链接：https://blog.csdn.net/zengyongheng22/article/details/5821641

版权

这篇博客介绍了如何在VB中使用DataGrid控件进行数据查询。通过ADODB.Recordset对象和ComboBox的选择，实现对特定字段的条件查询。内容包括设置DataSource、处理查询条件、动态构建SQL语句以及与mdb数据库的连接操作。

摘要由CSDN通过智能技术生成

DataGrid是数据显示的控件,不管数据存储,需要与数据存储体一起使用

Private Sub cmd_query_Click()
    On Error Resume Next
    Set rs = New ADODB.Recordset
    Dim strs As String
    cmd_query.Enabled = False

    Dim i As Integer
    i = 0

    Set DataGrid1.DataSource = Adodc2

    If Combo2.ListIndex = 0 Then
        If Not IsNumeric(cmd_con.Text) Then
            MsgBox "请输入编号"
            GoTo qend
        End If
        strs = "select * from " & qtable & " where 编号=" & cmd_con.Text
    Else
        strs = "select * from " & qtable & " where 内容 like '%" & cmd_con.Text & "%'"
    End If

    If cmd_con.Text <> "" Then
        'rs.Open strs, conn, adOpenDynamic, adLockPessimistic
        'rs.Open strs, conn, adOpenStatic, adLockOptimistic