Как подключиться к Mysql

отредактировано 17:15 Раздел: FastReport .NET
Проект Microsoft Visual Studio 2008, Сервер MySQL. Как в доке в форму добавляю FastReport, создаю отчет, запоминаю. Начинаю отлаживать проект, ввожу данные в базу, запускаю печать, а она не видит последние несколько строк. Как быть?

Комментарии

  • отредактировано 17:15
    Здравствуйте,

    Рекомендуется хранить отчет в файле и работать с отдельным экземпляром Report:
    using (Report report = new Report())
    {
      report.Load(filename);
      report.RegisterData(...);
      report.Show();
    }
    
  • отредактировано February 2010
    Dim rr1 As New FastReport.Report
    rr1.Load("C:/Opis.frx")
    rr1.RegisterData(Me.Db_klientDataSet)
    rr1.Show()

    Пишет : Таблица не подключена к данным. Зарегистрируйте данные методом Report.RegisterData.
  • отредактировано 17:15
    Попробуйте так:
    rr1.RegisterData(Me.Db_klientDataSet, "Db_klientDataSet")
  • отредактировано 17:15
    Не-а не получилось.
    Похоже что FastReport видит состояние базы на момент входа в приложение. Как заставить FasrReport перечитать базу ?
  • отредактировано 17:15
    Прикрепите файл отчета, я посмотрю. Похоже, в отчете источник данных имеет другое название.
  • отредактировано February 2010
    Пересылаю. Что-то файл не прикрепляется

    <?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>
  • отредактировано 17:15
    Dim rr1 As New FastReport.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()


    Так работает, НО последних введенных записей невидит всёравно. ?????
  • отредактировано 17:15
    Боюсь, это уже проблемы, не связанные с FastReport.Net. В данном случае _должны_ показываться все записи, имеющиеся в DataSet.
  • region73region73 Ульяновск
    отредактировано 17:15
    AlexTZ написал: »
    Боюсь, это уже проблемы, не связанные с FastReport.Net. В данном случае _должны_ показываться все записи, имеющиеся в DataSet.

    А в каком месте посоветовали бы покопаться? Ситуация на самом деле нестандартная....
  • отредактировано 17:15
    Работает вот-так.
    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()

    Спасибо за подсказку. С уважением, Сергей.

Оставить комментарий

Многофункциональный текстовый редактор. Чтобы отредактировать стиль параграфа, нажмите TAB, чтобы перейти к меню абзаца. Там вы можете выбрать стиль. По умолчанию не выбран ни один стиль. Когда вы выберете текст, появится встроенное меню форматирования. Нажмите TAB, чтобы войти в него. Некоторые элементы, такие как многофункциональные вставки ссылок, картинок, индикаторов загрузки и сообщений об ошибок могут быть вставлены в редактор. Вы можете перемещаться по ним, используя стрелки внутри редактора и удалять с помощью клавиш delete или backspace.