VB DATAGRID

发布时间：2020-12-17 00:26:55 所属栏目：大数据来源：网络整理

导读：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 = A

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,adOpenStatic,adLockOptimistic Adodc2.Caption = qtable + "表记录" Adodc2.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "./language.mdb;Persist Security Info=False " Adodc2.CommandType = adCmdText Adodc2.RecordSource = strs Adodc2.Refresh Else MsgBox "请输入查询条件" GoTo qend End If 'Text1.Text = rs.Fields(0).Name 'Text2.Text = DataGrid1.Columns(0).DataField canModify = True DataGrid1.Refreshqend: cmd_query.Enabled = TrueEnd Sub

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!