熟话说万物皆有其存在的道理,为什么我突然想写《知识共享图文直播》这个系列呢?首先,我想的是记录自己学习的历程,在记录中加深自己对知识的理解,同时也希望自己的博文能帮助到其他数据库的初学者。其次,这也算借鉴了其他人的一个好的想法吧。
一、我们所处的环境
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
-
-
.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)
-
-
-
-
-
-
-
-
-
Dim s As String
-
Dim i, j, k As Integer
-
-
On Error GoTo Err
-
-
-
Dim Excelapp As Excel.Application
-
Set Excelapp = New Excel.Application
-
-
On Error Resume Next
-
-
DoEvents
-
Excelapp.SheetsInNewWorkbook = 1
-
Excelapp.Workbooks.Add
-
-
-
-
-
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
-
-
-
Excelapp.Visible = True
-
-
-
-
Err:
-
If Not (Excelapp Is Nothing) Then
-
Excelapp.Quit
-
End If
-
-
End Sub
2、在窗体中调用
Private Sub cmdOutPut_Click()
'***************************************
'作用:将学生充值记录导入Excel表格
'输入参数:
'返回值:
'创建日期:
'修改日期:
'作者:
'*************************************
OutDataToExcel MSFlexGrid1
End Sub
写完之后总觉得少点东西,文章页仅仅是记录;在接下来的文章中会慢慢的加入自己的思考的。同时也希望该文对数据库的初学者有帮助。