Как подключиться к Mysql
Проект Microsoft Visual Studio 2008, Сервер MySQL. Как в доке в форму добавляю FastReport, создаю отчет, запоминаю. Начинаю отлаживать проект, ввожу данные в базу, запускаю печать, а она не видит последние несколько строк. Как быть?
Комментарии
Рекомендуется хранить отчет в файле и работать с отдельным экземпляром Report:
rr1.Load("C:/Opis.frx")
rr1.RegisterData(Me.Db_klientDataSet)
rr1.Show()
Пишет : Таблица не подключена к данным. Зарегистрируйте данные методом Report.RegisterData.
rr1.RegisterData(Me.Db_klientDataSet, "Db_klientDataSet")
Похоже что FastReport видит состояние базы на момент входа в приложение. Как заставить FasrReport перечитать базу ?
<?xml version="1.0" encoding="utf-8"?>
<Report ScriptLanguage="Vb" ReportInfo.Created="01/13/2010 21:50:56" ReportInfo.Modified="02/10/2010 09:51:05" ReportInfo.CreatorVersion="1.3.2.0">
<scriptText>Imports System
Imports System.Collections
Imports System.Collections.Generic
Imports System.ComponentModel
Imports System.Windows.Forms
Imports System.Drawing
Imports Microsoft.VisualBasic
Imports FastReport
Imports FastReport.Data
Imports FastReport.Dialog
Imports FastReport.Table
Imports FastReport.Barcode
Imports FastReport.Utils
Namespace FastReport
Public Class ReportScript
Public kol_vo_str as Int16 = 0
Private Sub Text14_BeforePrint(ByVal sender As object, ByVal e As EventArgs)
kol_vo_str = kol_vo_str + 1
End Sub
Private Sub Text17_AfterData(ByVal sender As object, ByVal e As EventArgs)
'MsgBox(kol_vo_str )
End Sub
End Class
End Namespace
</ScriptText>
<Dictionary>
<TableDataSource Name="doc_opis" ReferenceName="Db_klientDataSet.doc_opis" DataType="System.Int32" Enabled="true">
<Column Name="Npp_doc" DataType="System.Int32"/>
<Column Name="Kod_doc" DataType="System.String"/>
<Column Name="Opis_txt" DataType="System.String"/>
<Column Name="Opis_pri" DataType="System.String"/>
<Column Name="Kod_rees" DataType="System.String"/>
</TableDataSource>
<TableDataSource Name="doc_all" ReferenceName="Db_klientDataSet.doc_all" DataType="System.Int32" Enabled="true">
<Column Name="Kod_doc" DataType="System.String"/>
<Column Name="Data_doc" DataType="System.DateTime"/>
<Column Name="Kod_kli" DataType="System.String"/>
<Column Name="Kod_pod_kli" DataType="System.String"/>
<Column Name="Kod_otdela" DataType="System.String"/>
<Column Name="Kod_pol" DataType="System.String"/>
<Column Name="Vid" DataType="System.String"/>
<Column Name="Kategorij" DataType="System.String"/>
<Column Name="Uvedomlenie" DataType="System.String"/>
<Column Name="Razrjad" DataType="System.String"/>
<Column Name="Opis" DataType="System.String"/>
<Column Name="Opis_txt" DataType="System.String"/>
<Column Name="Prim" DataType="System.String"/>
<Column Name="Form_kon" DataType="System.String"/>
<Column Name="Ves" DataType="System.Decimal"/>
<Column Name="Cennost" DataType="System.Decimal"/>
<Column Name="Summa" DataType="System.Decimal"/>
<Column Name="Kod_rees_kli" DataType="System.String"/>
<Column Name="Kod_oper_vvod" DataType="System.String"/>
<Column Name="Kod_sost" DataType="System.String"/>
<Column Name="Kod_podr" DataType="System.String"/>
<Column Name="Kod_kurer_vzjl" DataType="System.String"/>
<Column Name="Data_otv" DataType="System.DateTime"/>
<Column Name="Kod_rees_podr" DataType="System.String"/>
<Column Name="Data_rees_podr" DataType="System.DateTime"/>
<Column Name="Kod_kurer_otv" DataType="System.String"/>
<Column Name="Kod_oper_otv" DataType="System.String"/>
<Column Name="Data_sverki" DataType="System.DateTime"/>
<Column Name="Niam_kli" DataType="System.String"/>
<Column Name="Index_kli" DataType="System.String"/>
<Column Name="Region_kli" DataType="System.String"/>
<Column Name="Raion_kli" DataType="System.String"/>
<Column Name="Nas_pun_kli" DataType="System.String"/>
<Column Name="Adr_kli" DataType="System.String"/>
<Column Name="Niam_pod_kli" DataType="System.String"/>
<Column Name="Index_pod_kli" DataType="System.String"/>
<Column Name="Region_pod_kli" DataType="System.String"/>
<Column Name="Raion_pod_kli" DataType="System.String"/>
<Column Name="Nas_pun_pod_kli" DataType="System.String"/>
<Column Name="Adr_pod_kli" DataType="System.String"/>
<Column Name="Niam_pol" DataType="System.String"/>
<Column Name="Index_pol" DataType="System.Int32"/>
<Column Name="Region_pol" DataType="System.String"/>
<Column Name="Raion_pol" DataType="System.String"/>
<Column Name="Nas_pun_pol" DataType="System.String"/>
<Column Name="Adr_pol" DataType="System.String"/>
<Column Name="Data_rees" DataType="System.DateTime"/>
<Column Name="Kod_sost_got" DataType="System.String"/>
<Column Name="Kod_sost_otp" DataType="System.String"/>
<Column Name="Kod_kurer" DataType="System.String"/>
</TableDataSource>
<Parameter Name="Kol_vo" DataType="System.Int16"/>
</Dictionary>
<ReportPage Name="Page1" FirstPageSource="15" OtherPagesSource="15">
<GroupHeaderBand Name="GroupHeader1" Width="718.2" Height="283.5" StartNewPage="true" Condition="[doc_all.Kod_doc]">
<TextObject Name="Text4" Left="9.45" Top="113.4" Width="132.3" Height="18.9" Text="Отправитель:" Font="Arial, 12pt"/>
<TextObject Name="Text5" Left="122.85" Top="113.4" Width="585.9" Height="56.7" Text="[doc_all.Niam_pod_kli] [doc_all.Index_pod_kli] [doc_all.Region_pod_kli] [doc_all.Raion_pod_kli] [doc_all.Nas_pun_pod_kli] [doc_all.Adr_pod_kli]" Font="Arial, 12pt"/>
<TextObject Name="Text3" Left="9.45" Top="85.05" Width="699.3" Height="18.9" Text="№ [doc_all.Kod_doc]" HorzAlign="Center" Font="Arial, 12pt, style=Bold"/>
<TextObject Name="Text2" Left="9.45" Top="66.15" Width="699.3" Height="18.9" Text="ОПИСЬ ВЛОЖЕНИЙ К ЗАКАЗНОМУ ПОЧТОВОМУ ОТПРАВЛЕНИЮ" HorzAlign="Center" Font="Arial, 12pt, style=Bold"/>
<TextObject Name="Text6" Left="9.45" Top="179.55" Width="113.4" Height="18.9" Text="Получатель:" Font="Arial, 12pt"/>
<TextObject Name="Text7" Left="122.85" Top="179.55" Width="585.9" Height="56.7" Text="[doc_all.Niam_pol] [doc_all.Index_pol] [doc_all.Region_pol] [doc_all.Raion_pol] [doc_all.Nas_pun_pol] [doc_all.Adr_pol]" Font="Arial, 12pt"/>
<TextObject Name="Text9" Left="47.25" Top="245.7" Width="481.95" Height="37.8" Border.Lines="All" Text="Наименование вложения" HorzAlign="Center" VertAlign="Center" Font="Arial, 12pt, style=Bold"/>
<TextObject Name="Text10" Left="529.2" Top="245.7" Width="179.55" Height="37.8" Border.Lines="All" Text="Примечание" HorzAlign="Center" VertAlign="Center" Font="Arial, 12pt, style=Bold"/>
<TextObject Name="Text8" Left="9.45" Top="245.7" Width="37.8" Height="37.8" Border.Lines="All" Text="№
п/п" HorzAlign="Center" Font="Arial, 12pt, style=Bold"/>
<PictureObject Name="Picture1" Left="368.55" Top="9.45" Width="340.2" Height="47.25" Image="iVBORw0KGgoAAAANSUhEUgAAB0AAAAENCAYAAACW43ZbAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8YQUAAAAJcEhZcwAALhUAAC4VASOaSrMAAP+lSURBVHhe7L11nBvH0gX6/n/v+
...
+TABYr3NViFQmJ4K39DqyrpzX8sGTE651Z1d1G+pIdCnECjIT/LqgZnQqM9vJoj64YKC5DO0D2g/bLLJGnPvv2VBVzKAcm8gWkfBy0tefP34GgLDFQJ1AHQgMJ9TD6qq+Og1DrLkEYKfFFq7390lcY1f3HGnuXXtOvOdf/iWuXnd982G9XeZ17a+Yt7bHQU+8bXXHi98JX1YCYrv9ae3EMjCv19dfYB6i6iKvv3/AYR6iz7z+DbpAAAAAElFTkSuQmCC"/>
<TextObject Name="Text1" Left="9.45" Top="9.45" Width="151.2" Height="18.9" Text="Форма 17"/>
<DataBand Name="Data1" Top="287.5" Width="718.2" Visible="false" DataSource="doc_all" Filter="([doc_all.Opis] = "Есть") AND ([doc_all.Kod_sost_otp] = "Нет") AND ( (([doc_all.Kod_rees_kli] = [Par_Kod_rees]) AND ([Par_typ_fil] = "1")) OR (([doc_all.Kod_doc] = [Par_Kod_doc]) AND ([Par_typ_fil] = "3")) )">
<DataBand Name="Data2" Top="291.5" Width="718.2" Height="18.9" AfterDataEvent="Text14_BeforePrint" DataSource="doc_opis" Filter="[doc_all.Kod_doc] = [doc_opis.Kod_doc]">
<TextObject Name="Text12" Left="47.25" Width="481.95" Height="18.9" Border.Lines="All" Text="[doc_opis.Opis_txt]" Font="Arial, 12pt"/>
<TextObject Name="Text13" Left="529.2" Width="179.55" Height="18.9" Border.Lines="All" Text="[doc_opis.Opis_pri]" HorzAlign="Center" Font="Arial, 12pt"/>
<TextObject Name="Text14" Left="9.45" Width="37.8" Height="18.9" Border.Lines="All" BeforePrintEvent="Text14_BeforePrint" Text="[Row#]" HorzAlign="Center" Font="Arial, 12pt"/>
<Sort>
<Sort Expression="[doc_opis.Kod_doc]"/>
<Sort Expression="[doc_opis.Npp_doc]"/>
</Sort>
</DataBand>
</DataBand>
<GroupFooterBand Name="GroupFooter1" Top="314.4" Width="718.2" Height="132.3">
<TextObject Name="Text18" Left="47.25" Top="37.8" Width="94.5" Height="18.9" Text="Отправитель:"/>
<TextObject Name="Text19" Left="170.1" Top="56.7" Width="302.4" Height="18.9" Text="(подпись ответственного сотрудника отправителя)" Font="Arial, 8pt"/>
<LineObject Name="Line1" Left="141.75" Top="56.7" Width="567"/>
<TextObject Name="Text20" Left="47.25" Top="85.05" Width="94.5" Height="18.9" Text="Проверено"/>
<LineObject Name="Line2" Left="141.75" Top="103.95" Width="567"/>
<TextObject Name="Text21" Left="170.1" Top="103.95" Width="302.4" Height="18.9" Text="(подпись сотрудника почтовой службы)" Font="Arial, 8pt"/>
</GroupFooterBand>
</GroupHeaderBand>
</ReportPage>
</Report>
rr1.Load("C:/Opis.frx")
rr1.RegisterData(Me.Db_klientDataSet, "Db_klientDataSet")
rr1.SetParameterValue("Par_Kod_rees", "x")
rr1.SetParameterValue("Par_Kod_doc", aa)
rr1.SetParameterValue("Par_typ_fil", "3")
rr1.Show()
Так работает, НО последних введенных записей невидит всёравно. ?????
А в каком месте посоветовали бы покопаться? Ситуация на самом деле нестандартная....
Dim rr1 As New FastReport.Report
Dim rr2 As New Klient.db_klientDataSet
rr1.Load("C:/Opis.frx")
rr2.BeginInit()
rr1.RegisterData(rr2, "Db_klientDataSet")
rr1.SetParameterValue("Par_Kod_rees", "x")
rr1.SetParameterValue("Par_Kod_doc", aa)
rr1.SetParameterValue("Par_typ_fil", "3")
rr1.Show()
Спасибо за подсказку. С уважением, Сергей.