有2个窗体:form1,form2,窗体2上有adodc1控件1个,datagrid控件一个,三个text控件,二个按钮
窗体1上有9个text控件用来显示查询类容
我想在窗体2上点击查询按钮的时候,把三个text控件中的类容做条件进行查询,并把查询内容在datagrid上显示
然后点击确定按钮则将被选中的记录在窗体1上的几个TEXT控件中显示,同时关闭窗体2
请问该如何编程
谢谢
窗体1上有9个text控件用来显示查询类容
我想在窗体2上点击查询按钮的时候,把三个text控件中的类容做条件进行查询,并把查询内容在datagrid上显示
然后点击确定按钮则将被选中的记录在窗体1上的几个TEXT控件中显示,同时关闭窗体2
请问该如何编程
谢谢
在增加与删除其实Adodc控件与Recordset的区别只是把 Recordset更换成Adodc1.Recordset
RecordSet的增加:Rs.AddNew,Adodc的增加:Adodc1.Recordset.AddNew
示范:
'--如何用Adodc控件代码去连接Access
Private Sub Command1_Click()
Dim strConn As String
strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\test.mdb;Persist Security Info=False"
' adodc的连接字符串
Adodc1.ConnectionString = strConn
' 指定Command对象的形态
Adodc1.CommandType = adCmdText
' 设置传回一个资料录集。
Adodc1.RecordSource = "Select * from People"
' 将记录集合绑定DataGrid1
Set DataGrid2.DataSource = Adodc1
End Sub
查询的时候sql语句示范
strsql="select * from tableA where aa='"& text1.text &"'