Public Function connectstring() As String
connectstring = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\incubus.mdb;Persist Security Info=False;Jet OLEDB:database Password=1234"
End Function
Private Sub CmdSearch2_Click()
Dim txtSQL As String
Dim MsgText As String
Dim dd(4) As Boolean
Dim mrc As ADODB.Recordset
txtSQL = "select * from zpdw where "
If Check1.Value Then
If Trim(CbErea.Text) = "" Then
sMeg = "请选择地区!"
MsgBox sMeg, vbOKOnly + vbExclamation, "警告"
CbErea.SetFocus
Exit Sub
Else
dd(0) = True
txtSQL = txtSQL & "地区 = '" & Trim(CbErea.Text) & "'"
End If
End If
If Check2.Value Then
If Trim(CmdSearch.Text) = "" Then
sMeg = "请选择单位性质!"
MsgBox sMeg, vbOKOnly + vbExclamation, "警告"
CmdSearch.SetFocus
Exit Sub
Else
dd(1) = True
If dd(0) Then
txtSQL = txtSQL & "and 单位性质 = '" & CmdSearch.Text & "'"
Else
txtSQL = txtSQL & "单位性质 = '" & CmdSearch.Text & "'"
End If
End If
End If
If Check3.Value Then
If Trim(Cbattend.Text) = "" Then
sMeg = "请选择是否参加过我院大型招聘会!"
MsgBox sMeg, vbOKOnly + vbExclamation, "警告"
Cbattend.SetFocus
Exit Sub
Else
dd(2) = True
If dd(0) Or dd(1) Then
txtSQL = txtSQL & "and 参加过 = '" & Cbattend.Text & "'"
Else
txtSQL = txtSQL & "参加过 = '" & Cbattend.Text & "'"
End If
End If
End If
If Check4.Value Then
If Trim(Cbreceive.Text) = "" Then
sMeg = "请选择是否招过我院毕业生!"
MsgBox sMeg, vbOKOnly + vbExclamation, "警告"
Cbreceive.SetFocus
Exit Sub
Else
dd(2) = True
If dd(0) Or dd(1) Or dd(2) Then
txtSQL = txtSQL & "and 招过 = '" & Cbreceive.Text & "'"
Else
txtSQL = txtSQL & "招过 = '" & Cbreceive.Text & "'"
End If
End If
End If
If Not (dd(0) Or dd(1) Or dd(2) Or dd(3)) Then
MsgBox "请设置查询方式!", vbOKOnly + vbExclamation, "警告"
Exit Sub
End If
txtSQL = txtSQL & " order by 单位名称 "
Set mrc = ExecuteSQL(txtSQL, MsgText)
这是一个连接数据库的函数,代码如下
Public Function executesql(ByVal sql As String, mstring As String) As ADODB.Recordset
Dim cnn As New Connection
Dim rst As ADODB.Recordset
Dim stoken() As String
On Error GoTo Executesql_error
stoken = Split(sql)
Set cnn = New ADODB.Connection
cnn.Open connectstring
If InStr("INSERT,DELETE,UPDATE", UCase$(stoken(0))) Then
cnn.Execute sql
mstring = stoken(0) & "query successful"
Else
Set rst = New ADODB.Recordset
rst.Open Trim$(sql), cnn, adOpenKeyset, adLockOptimistic
Set executesql = rst
mstring = "查询到" & rst.RecordCount & "条记录"
End If
executesql_exit:
Set rst = Nothing
Set cnn = Nothing
Exit Function
Executesql_error:
mstring = "查询错误:" & Err.Description
Resume executesql_exit
End Function
Public Function connectstring() As String
connectstring = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\incubus.mdb;Persist Security Info=False;Jet OLEDB:database Password=1234"
End Function
把他们添加到模块中
当然Data Source=" & App.Path & "\incubus.mdb要该为你自己的数据库的路径