strSQl = ""
/以下语句实现或者查询模式
If Option2.Value = True Then
If Check1.Value = vbChecked Then
strSQl = "图书总表.编号='" & Text1(0).Text & "'"
End If
If Check2.Value = vbChecked Then
If strSQl = "" Then
strSQl = "图书分表.类别='" & Combo1.Text & "'"
Else
strSQl = strSQl & "or 图书分表.类别='" & Combo1.Text & "'"
End If
End If
End if
'make the search、
/以下是用SQL语句对图书分表和图书总表按编号相同进行查询:
sql1 = "SELECT 图书总表.*,图书分表.试卷代号,图书分表.试卷名称,图书分表.页号"
sql1 = sql1 & " FROM 图书总表,图书分表"
sql1 = sql1 & " WHERE " & strSQl & "and 图书总表.编号 = 图书分表.编号"
End If
'show the found records
/对查询结果创建数据RECORDSET对象:
If sql1 <> "" Then
Set rs = db.OpenRecordset(sql1)
Set Data1.Recordset = rs
End If
Data1.Refresh
'show number of rsords found
Me.Caption = "总共找到" & CStr(rs.RecordCount) & " 记录"
'close the rsordset
rs.Close
Exit Sub
End sub
3.7 出错处理
当我遇到一些错误是,如无当前记录等一些常规性错误,我的处理方法有两种:
第一种:
On error goto a
A:
MsgBox Err.Description
第二种方法:
on error resume next
为了使程序能更加完善,我还运用了BeginTrans………CommitTrans语句
第四章操作常识
上一页 [1] [2] [3] [4] [5] [6] [7] 下一页