thisworkbook.vb

.net中word的扩展应用。用ado.net对word,excel进行存取_ADO.NET应用

'Imports System.Data.OleDb
Public Class ThisWorkbook
    'Public tbSheet As DataTable
    'Private tbUnit As DataTable
    'Private DBChange As DBClass
    'Private NULL As System.DBNull
    '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)
    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("E:\OFFice\tt.mdb")



    '        strConnection = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\OFFice\tt.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