1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25
|
Dim Timmer As Long
Dim CxnCalendar As String
Dim CxnOle As OleDbConnection
Dim DaNotes As OleDbDataAdapter
Dim DsNotes As DataSet
Dim dvNotes As DataView
Dim CxnFactory As String
Dim DaFactory As OleDbDataAdapter
Dim DsFactory As DataSet
Me.CxnCalendar = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=F:\Visual Basic\isg\Calendar.mdb"
CxnOle = New OleDbConnection
Me.CxnOle.ConnectionString = Me.CxnCalendar
Me.CxnOle.Open()
Me.DaFactory = New OleDbDataAdapter(StringSql, CxnOle)
Me.DsFactory = New DataSet
Me.DaNotes = New OleDbDataAdapter(StringSql, CxnOle)
Me.DsNotes = New DataSet
Me.dvNotes = New DataView
Me.DaFactory.Fill(Me.DsFactory, "Factory")
Me.DaNotes.Fill(Me.DsNotes, "notes")
Me.dvNotes = DsNotes.Tables("notes").DefaultView
Me.CxnOle.Close()
Me.DataGrid.DataSource = Me.dvNotes |
Partager