知识共享图文直播---(一)将数据库中的数据加载到MSFlexGrid控件中再导入Excel
来源:互联网 发布:有哪些好的p2p平台知乎 编辑:程序博客网 时间:2024/06/05 11:53
熟话说万物皆有其存在的道理,为什么我突然想写《知识共享图文直播》这个系列呢?首先,我想的是记录自己学习的历程,在记录中加深自己对知识的理解,同时也希望自己的博文能帮助到其他数据库的初学者。其次,这也算借鉴了其他人的一个好的想法吧。
一、我们所处的环境
1、看窗体布局
2、了解目标表
二、数据导入MSFlexGrid控件中
- Dim strSQL As String
- Dim strMsg As String
- Dim objRs As ADODB.Recordset
- Dim n As Integer
- '提取学生信息
- strSQL = "select * from student_Info where cardno='" & txtCardNo.Text & "'"
- Set objRs = ExecuteSQL(strSQL, strMsg)
- '显示列名
- With MSFlexGrid1
- '.Row = 0
- .TextMatrix(0, 0) = "卡号"
- .TextMatrix(0, 1) = "学生姓名"
- .TextMatrix(0, 2) = "充值金额"
- .TextMatrix(0, 3) = "充值日期"
- .TextMatrix(0, 4) = "充值时间"
- .TextMatrix(0, 5) = "充值教师"
- '有选择的显示记录,对比表中的列名可知
- n = 0
- While Not objRs.EOF
- MSFlexGrid1.AddItem (objRs!cardno & vbTab & objRs!studentName & _
- vbTab & objRs!cash & vbTab & objRs!Date & _
- vbTab & objRs!Time & vbTab & objRs!UserID)
- n = n + 1
- objRs.MoveNext
- Wend
- End With
三、将控件中显示数据导入Excel表格
1、首先我们先在模块中建立执行此过程的方法,如下:
- <pre name="code" class="vb">Public Sub OutDataToExcel(Flex As MSFlexGrid)
- '***********************************************************
- '作用:定义一个过程,实现将MSFlexGrid控件中的数据导入Excel表格
- '输入参数:无
- '返回值:
- '创建日期:2013.8.23
- '修改日期:
- '作者:十期提高班 Senior_Lee
- '****************************************
- Dim s As String
- Dim i, j, k As Integer
- On Error GoTo Err
- 'Me.MousePointer = 11
- Dim Excelapp As Excel.Application
- Set Excelapp = New Excel.Application
- On Error Resume Next
- DoEvents
- Excelapp.SheetsInNewWorkbook = 1
- Excelapp.Workbooks.Add
- 'Excelapp.ActiveSheet.Cells(1, 1) = s
- 'Excelapp.Range("c1").Select '选中某一个单元格
- 'Excelapp.Selection.Font.Size = 16 '设置选中单元格的字体
- With Flex
- k = .Rows
- For i = 0 To k - 1
- For j = 0 To .Cols - 1
- DoEvents
- Excelapp.ActiveSheet.Cells(1 + i, j + 1) = "'" & .TextMatrix(i, j)
- Next j
- Next i
- End With
- 'Me.MousePointer = 0
- Excelapp.Visible = True
- 'Excelapp.Sheets.PrintPreview '默认显示,打印预览窗体,注释之后直接显示Excel表格
- '错误处理
- Err:
- If Not (Excelapp Is Nothing) Then
- Excelapp.Quit
- End If
- End Sub
2、在窗体中调用
Private Sub cmdOutPut_Click() '*************************************** '作用:将学生充值记录导入Excel表格 '输入参数: '返回值: '创建日期: '修改日期: '作者: '************************************* OutDataToExcel MSFlexGrid1 End Sub
写完之后总觉得少点东西,文章页仅仅是记录;在接下来的文章中会慢慢的加入自己的思考的。同时也希望该文对数据库的初学者有帮助。
- 知识共享图文直播---(一)将数据库中的数据加载到MSFlexGrid控件中再导入Excel
- 机房收费系统———如何将MSFlexGrid中的数据导入到Excel中
- 将MsFlexGrid中的数据导出到Excel中
- 将VB中MSHFlexGrid控件中的数据导入到Excel
- 将MSHFlexGrid控件中的数据导入到Excel中
- 怎样将Excel中的数据导入到SQLServer2000数据库中
- 怎样将Excel中的数据导入到SQLServer2000数据库中
- 怎样将excel中的数据导入到oracle数据库中
- oracle将数据库中的数据导入到excel中
- java将数据库中的数据导入到excel表中
- 将Excel中的数据导入到MySql数据库中
- 将Excel数据导入到数据库中
- 将excel数据导入到数据库中
- VB中如何将msflexgrid控件中的数据导成Excel
- 【机房】-VB中如何将MSFlexGrid控件中的数据导成Excel
- vb中MSFlexGrid控件中的数据导出到execel中
- 将Excel文件数据导入数据到SQL数据库中
- 如何使用免费控件将word表格中的数据导入到excel中
- 数据结构 大O表示法和顺序表
- vector中自定义结构体的排序
- Android如何保持屏幕常亮
- myeclipse10.0优化
- 聚类算法初探(七)聚类分析的效果评测
- 知识共享图文直播---(一)将数据库中的数据加载到MSFlexGrid控件中再导入Excel
- 一些弹出框的用法例子(一)
- 新的一天
- ios学习笔记:第一个ios程序
- oracle instr 操作
- 时间的单位换算
- pygame
- 宏中"#"和"##"的用法
- CRM上线之路 走上了CRM实施顾问-第23天上班 -第六周