毕业论文论文范文课程设计实践报告法律论文英语论文教学论文医学论文农学论文艺术论文行政论文管理论文计算机安全
您现在的位置: 毕业论文 >> 论文 >> 正文

图书管理系统 第6页

更新时间:2008-6-25:  来源:毕业论文

图书管理系统 第6页

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

37 出错处理

当我遇到一些错误是,如无当前记录等一些常规性错误,我的处理方法有两种:

第一种:

On error goto a

A:

MsgBox Err.Description

第二种方法:

on error resume next

为了使程序能更加完善,我还运用了BeginTrans………CommitTrans语句

         第四章操作常识

上一页  [1] [2] [3] [4] [5] [6] [7] 下一页

图书管理系统 第6页下载如图片无法显示或论文不完整,请联系qq752018766
设为首页 | 联系站长 | 友情链接 | 网站地图 |

copyright©751com.cn 辣文论文网 严禁转载
如果本毕业论文网损害了您的利益或者侵犯了您的权利,请及时联系,我们一定会及时改正。