Forum
Aktif konular
Üyeler
Kurallar
Arama
Tahribat.com Forumları 
C#, Asp.Net, .Net Core 
[Vb.NET]Fastreport Datagridview Veya Access Baglatısı? [Vb.NET]Fastreport Datagridview Veya Access Baglatısı?
-
ıyı aksamlar murıdler
vb.net de olusturulmus bır datagridview var bunun içine access veri tabanındakı kayıtları sıralatıyorum fakat bırde fastreport ıle
cıktısını almam lazım fakat alamıyorum.aradakı baglantıyı kuramadım kodlar asagıda
ornek dosyası
----------------------------------------------------------------------------------------
Private FDataSet As DataSet
Private Sub CreateDataSet()
' create simple dataset with one table
Me.FDataSet = New DataSet
Dim table As New DataTable
table.TableName = "Employees"
Me.FDataSet.Tables.Add(table)
table.Columns.Add("ID", GetType(Integer))
table.Columns.Add("Name", GetType(String))
table.Rows.Add(1, "Andrew Fuller")
table.Rows.Add(2, "Nancy Davolio")
table.Rows.Add(3, "Margaret Peacock")
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
CreateDataSet()
End Sub
Private Sub btnExportWithDialog_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExportWithDialog.Click
' create report instance
Dim report As New Report
' load the existing report
report.Load("..\..\report.frx")
' register the dataset
report.RegisterData(Me.FDataSet)
' run the report
report.Prepare()
' create export instance
Dim export As New PDFExport
export.Export(report)
' free resources used by report
report.Dispose()
End Sub
Private Sub btnSilentExport_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSilentExport.Click
' create report instance
Dim report As New Report
' load the existing report
report.Load("\.frx")
' register the dataset
report.RegisterData(Me.FDataSet)
' run the report
report.Prepare()
' create export instance
Dim export As New PDFExport
report.Export(export, "result.pdf")
' free resources used by report
report.Dispose()
End Sub
End Class
---------------------------------------------------------------
buda benım baglantı seklım
---------------------------------------------------------------
Dim yol As String = Application.StartupPath.ToString()
Dim baglan As New OleDbConnection("provider=microsoft.jet.oledb.4.0; Data Source=" & yol & "\sevktarihi.mdb")
Dim sql As String
Dim Dset As DataSet = New DataSet
Private Sub guncelle()
If TextBox1.Text = String.Empty Then
sql = "Select * From sevk"
' *** Eğer Kutudaki bilgileri silerseniz verilerin tamamı listelenecektir.
Else
sql = "Select * From sevk Where sozno Like'" & TextBox1.Text & "%" & "'"
' *** TextBox1 yerine sizdeki TextBox adını kullanacaksınız
' *** Like ve "%" sizin Datagridview deki listeyi gireceğiniz karaktere göre değerlendirir. Textbox içersinde tabi siz bunu ComboBox kullanıyorsanız
' *** sql = "Select * From Bilgiler Where Veri1 Like'" & ComboBox1.SelectedItem & "%" & "'" şeklinde de kullanabilirsiniz.
End If
Dim Ds As OleDbDataAdapter = New OleDbDataAdapter(sql, baglan)
Ds.Fill(Dset, "Bilgiler")
DataGridView1.DataSource = Dset.Tables(0)
DataGridView1.Columns.Item(0).Visible = False
DataGridView1.Columns.Item(1).HeaderText = "Sözleşme No"
DataGridView1.Columns.Item(1).Width = 95
DataGridView1.Columns.Item(2).HeaderText = "Müşteri İsmi"
DataGridView1.Columns.Item(2).Width = 160
DataGridView1.Columns.Item(3).HeaderText = "Sevk Tarihi"
DataGridView1.Columns.Item(3).Width = 85
DataGridView1.Columns.Item(4).HeaderText = "Notlar"
DataGridView1.Columns.Item(4).Width = 175
DataGridView1.Columns.Item(5).HeaderText = "Kullanıcı"
DataGridView1.Columns.Item(5).Width = 85
DataGridView1.ScrollBars = ScrollBars.Vertical
End Sub
--------------------------------------------------------------------------------
benım sımdı bu baglantıyı kurabılmem ıcın nasıl bır yol ızlemem lazım
-
up yapayımda gunduz gozuyle goren olur belkı
-
evet muritler sorunları yavas yavas cozuyorum.bu problem vs express kullanım dıyemıs.şimdi sorunum report viewer da tek butonla pdf export edıp mail olarak gondermeye calısıyorum bunu nasıl yapabılırım
lazz tarafından 16/Oca/15 17:18 tarihinde düzenlenmiştir
-
Nede devexpress kullanmiyorsun cok guzel raporlama sistemi var. Tavsiye ederim
-
teskkurler.pekı bı de onu deneyeyım bakalım o nasılmış
Kısayol
Şikayet
Özel Mesaj
Alıntı yap
Cevapla