你好,欢迎来到电脑编程技巧与维护杂志社! [免费注册][请登录 杂志社简介广告服务读者反馈编程社区  
合订本订阅
 
 
您的位置:杂志经典 / 网络与通信
关系数据库的VB通用查询编程技巧(五)
 

openrs strsql

    For i = 0 To rs.Fields.Count - 1

        Combo1(4).AddItem rs.Fields(i).Name

    Next i

    closers

closecn

' ----------------------初始化Combo1(2)

    With Combo1(2)

        .AddItem " = "

        .AddItem " > "

        .AddItem " < "

        .AddItem " >= "

        .AddItem " <= "

        .AddItem " <> "

        .AddItem " like "

End With

' -----设置Combo10--3各元素与Grid10--3各列的宽度相同

    Combo1(0).Width = 1000

    Combo1(1).Width = 1850

    Combo1(2).Width = 1000

    Combo1(3).Width = 2500

End Sub

4.取消按钮的单击事件

Private Sub Cmd_cancel_Click()

    Unload Me

End Sub

5.确定按钮的单击事件

Private Sub Cmd_confirm_Click()

   Dim i As Integer

' -----根据Combo1(3)的特殊值,修改Grid1当前单元的文本

    If Combo1(3).Visible = True Then

        If Combo1(3).Text = "True" Then

            Grid1.TextMatrix(Grid1.Row, 3) = "1"

        ElseIf Combo1(3).Text = "Flase" Then

            Grid1.TextMatrix(Grid1.Row, 3) = "0"

        Else

            Grid1.TextMatrix(Grid1.Row, 3) = Combo1(3).Text

        End If

    End If

    strcondition = ""

 ' -----根据不同的关系运算,给strcondition变量赋值

    If Grid1.Rows >= 2 And Grid1.TextMatrix(1, 1) <> "" Then

        If Grid1.TextMatrix(1, 2) = " like " Then

            strcondition = " where " & Grid1.TextMatrix(1, 4) & " like " & "'%" & Grid1.TextMatrix(1, 3) & "%'"

        Else

            strcondition = " where " & Grid1.TextMatrix(1, 4) & Grid1.TextMatrix(1, 2) & "'" & Grid1.TextMatrix(1, 3) & "'"

        End If

        For i = 2 To Grid1.Rows - 1

            If Grid1.TextMatrix(i, 2) = " like " Then

                strcondition = strcondition & Grid1.TextMatrix(i, 0) & Grid1.TextMatrix(i, 4) & " like " & "'%" & Grid1.TextMatrix(i, 3) & "%'"

            Else

                strcondition = strcondition & Grid1.TextMatrix(i, 0) & Grid1.TextMatrix(i, 4) & Grid1.TextMatrix(i, 2) & "'" & Grid1.TextMatrix(i, 3) & "'"

            End If

  推荐精品文章

·2019年9月目录 
·2019年8月目录
·2019年7月目录
·2019年6月目录
·2019年5月目录
·2019年4月目录    
·2019年3月目录   
·2019年2月目录   
·2019年1月目录  
·探析云计算下应用软件用户数据安全问题
·地理空间集束线可视化表达
·Android智能净水机APP开发(一)
·2018年12月目录  
·springAOP的思想和设计以及实现

  联系方式
TEL:010-82561037
Fax: 010-82561614
QQ: 100164630
Mail:gaojian@comprg.com.cn

  友情链接
 
Copyright 2001-2010, www.comprg.com.cn, All Rights Reserved
京ICP备06048724号,电话/传真:010-82561037 82561614 ,Mail:gaojian@comprg.com.cn
地址:北京市海淀区长春桥路5号6号楼1209室,邮编:100089