common.vb

来自「这是一个完善的图书馆管理系统.后台数据库采用ACCESS.」· VB 代码 · 共 38 行

Imports Library.OleDatabase

Module Common
    Public OleConn As New OleDatabase
    Public UserName As String
    Public Password As String
    Public bookDataSet As New DataSet
    Public readerDataSet As New DataSet

    Public Function OutputAsExcel(ByRef ds As DataSet) As Boolean
        Dim app As Excel.Application
        Try
            app = CreateObject("Excel.Application")
            app.Visible = True
            Dim wb As Excel.Workbook
            wb = app.Workbooks.Add
            Dim ws As Excel.Worksheet
            Dim i, j As Integer
            Dim tmp As String
            ws = wb.Worksheets(1)
            ws.Activate()
            For i = 0 To ds.Tables(0).Rows.Count - 1
                For j = 0 To ds.Tables(0).Columns.Count - 1
                    tmp = ChrW(65 + j) & CStr(i + 1)
                    ws.Range(tmp).Select()
                    If Not ds.Tables(0).Rows(i).IsNull(j) Then
                        ws.Range(tmp).Value = CStr(ds.Tables(0).Rows(i).Item(j))
                    End If
                Next
            Next
        Catch ex As Exception
            OutputAsExcel = False
            OleConn.DisplayError(ex)
        End Try
        OutputAsExcel = True
    End Function
End Module