Sub Отчёт(tbl As String) Dim Pt As String Pt = Form2.Label1.Caption & "Base.mdb" Set ist = New ADODB.Connection ist.Provider = "Microsoft.Jet.OLEDB.4.0" ist.ConnectionString = Pt ist.Open Set zap = New ADODB.Recordset zap.CursorType = adOpenDynamic zap.Source = tbl Set zap.ActiveConnection = ist zap.Open End Sub Private Sub Command13_Click() Отчёт "ПродукцияПоставщиков" Set DataReport3.DataSource = zap DataReport3.Show End Sub |
Рис 3.4 Отчёт с использованием Data Report
2. MS Word. При использовании MS Word необходимо создать файл с расширением “.doc” затем он наполняется необходимой информацией и сохраняется в указанном месте. Естественно программа всё это делает в автоматическом режиме.
Листинг 3.10