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

Me.Caption = Mid(Me.Caption, 1, InStr(Me.Caption, "")) & "(共有" & Grid2.Rows - 1 & "条记录)"

'-----------------------------------------------------------

End Sub

6)根据参数comrs,向combobox中添加值

Public Sub fillcom1(com As ComboBox, rs As ADODB.Recordset)'填充combobox

    com.Clear

    If rs.RecordCount <= 0 Then Exit Sub

    rs.MoveFirst

    Do Until rs.EOF

        com.AddItem (rs.Fields(0).Value) & ""

        rs.MoveNext

    Loop

    rs.MoveFirst

End Sub

3.窗体的加载

Private Sub Form_Load()

   ' strsql变量赋值,值为SELECT语句,参考格式如下,只有字段名,字段无别名,这是为了与界面用户操作的查询字段同步,给编程者提供的字段名称

strsql = "SELECT STUDENT_TBL.STUID, STUDENT_TBL.STUname, STUDENT_TBL.STUsorce, STUDENT_TBL.STUchive FROM STUDENT_TBL"

' strdemand变量赋值,值为SELECT语句,参考格式如下,给字段取别名是为了在选择条件的界面给用户提供汉字的参考

strdemand = "SELECT STUDENT_TBL.STUID as 学号, STUDENT_TBL.STUname as 姓名, STUDENT_TBL.STUsorce as 课程, STUDENT_TBL.STUchive as 成绩 FROM STUDENT_TBL"

' strtable变量赋值,值为要查询的表名或视图名

    strtable = "STUDENT_TBL"

    strsumdemand = ""

    Dim i As Integer

    ' --------------Grid1初始化,设置列宽、单元格对齐方式

  Grid1.FormatString = " 逻辑符|^       |^  运算符   |^ 数据值 |"

    Grid1.ColWidth(4) = 0

    Grid1.ColWidth(3) = 2500

    Grid1.ColWidth(2) = 1000

    Grid1.ColWidth(1) = 1850

    Grid1.ColWidth(0) = 1000

    For i = 0 To 3

        Grid1.Row = 0

        Grid1.Col = i

        Grid1.CellAlignment = 4

Next i

' -----------------------------------------------------

Opencn                   '调用子过程Opencn,打开数据库连接

openrs strdemand  '调用子过程Openrs,并传参数查询的内容

' --------------------Combo1(1)中添加strdemand字符串中字段别名

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

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

Next i

' --------------------Combo1(4)中添加strsql字符串中字段名

  推荐精品文章

·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