ADO+DATAGRID实现数据查询
第一步、在窗体中拖出ADODC1、datagrid1、combo1、text1、command1其中combo1用来选择查询字段,text1用来输入字段的值。第二步、对adodc1进行数据库连接操作,数据源先设置为表,选择相应的表
第三步、将datagrid1和adodc1进行绑定。
第四步、设置combo1的list属性。
第五步、设置command1动作:
Dim instr1
instr1 = Combo1.List(Combo1.ListIndex) & "='" & Text1.Text & "'"
Adodc1.CommandType = adCmdText
Adodc1.RecordSource = "select * from student where " & instr1
Adodc1.Refresh
DataGrid1.ReBind
保存运行
以上代码在vb6.0运行通过。