在模块里写一个函数,来按字段查询, 急!!!在线等待......问题解决立刻给分,谢谢
我想在一个标准模块中定义一个,查询字段用的函数。在函数中,把查询结果保存在一个字符串中 (最后在窗体中调用这个函数就可以了),请帮我看一下,我的这段代码对不对(这段代码是在模块中定义的),如果不对请帮忙改正,谢谢!
通用部分
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Set cn = New Connection
cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.3.51;" & _
"Data Source=F:\Access\database.mdb"
cn.Open
Set rs = New Recordset
rs.Open "table", cn, adOpenDynamic, adLockOptimistic, adCmdTable
Public Function find_str() As String
If Text1.Text = Empty & Text2.Text = Empty Then
MsgBox "cannot be empty"
Form1.Text1.SetFocus
Else
find_str = "select * from table1 where col1='" _
& Form1.Text1.Text & "' or col2 = '" & Form1.Text2.Text & "'"
End If
End Function