thisworkbook.vb

来自「.net中word的扩展应用。用ado.net对word,excel进行存取_A」· VB 代码 · 共 56 行

Imports System.Data.OleDb
Public Class ThisWorkbook
    Public tbSheet As DataTable
    Public tbUnit As DataTable
    Public DBChange As DBClass
    Public strChange(1, 200) As String
    Private strConnection As String
    Private sql As String
    Private adapterDB As OleDbDataAdapter
    Private ds As DataSet

    Private Sub ThisWorkbook_Startup(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Startup
        'MessageBox.Show(Me.Path)
        ConnectionDataTable()
    End Sub

    Private Sub ThisWorkbook_Shutdown(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Shutdown

    End Sub
    '连接数据库的表
    Private Function ConnectionDataTable() As Boolean
        Try
            DBChange = New DBClass
            DBChange.OpenFile(Me.Path & "\science.mdb")

            strConnection = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Me.Path & "\science.mdb;Persist Security Info=False"
            sql = "select * from Unit"
            adapterDB = New OleDbDataAdapter(sql, strConnection)
            ds = New DataSet
            tbUnit = New DataTable
            adapterDB.Fill(ds, "Unit")
            tbUnit = ds.Tables("Unit")
            Dim keys(1) As DataColumn
            keys(0) = tbUnit.Columns.Item("UnitID")
            tbUnit.PrimaryKey = keys

            sql = "select * from report"
            adapterDB = New OleDbDataAdapter(sql, strConnection)
            'ds = New DataSet
            tbSheet = New DataTable
            adapterDB.Fill(ds, "report")
            tbSheet = ds.Tables("report")
            Dim i As Integer
            For i = 0 To tbSheet.Columns.Count - 1
                strChange(0, i) = DBChange.tdfNew(i).Properties("Caption").Value
                strChange(1, i) = DBChange.tdfNew(i).Name
            Next

        Catch ex As Exception
            Return False
        End Try
        Return True
    End Function

End Class