PDA

View Full Version : گزارش گیری از طریق کد نویسی



مملی2002
چهارشنبه 20 شهریور 1387, 00:42 صبح
چطور می تونم Data Report و DataEnvironment از طریق کد نویسی به بانک اطلاعاتی مرتبط کنم ؟
لفا سریع جواب بدید فوریه

mpmsoft
چهارشنبه 20 شهریور 1387, 09:56 صبح
دوست عزیز خدایی شما یه سرچ زدی تو سایت درباره DataReport

بارها و بارها این تاپیک ها زده شده و جواب هم داده شده

http://barnamenevis.org/forum/search.php?searchid=1046377

مملی2002
چهارشنبه 20 شهریور 1387, 10:34 صبح
خوب سرچ زدم ولی به دردم نخورد

maryamb
چهارشنبه 20 شهریور 1387, 11:11 صبح
به این نگاه کن شاید به دردت بخوره(چند روز پیش برای یکی از دوستان نوشتم)
http://barnamenevis.org/forum/showpost.php?p=589322&postcount=5

مملی2002
چهارشنبه 20 شهریور 1387, 11:13 صبح
من این کد برای DataEnvironment میزارم اما جواب نمیده و Data Report ارور میده

On Error Resume Next

Dim Sql As String
Sql = "Select * From Table1"
Unload DataEnvironment1
DataEnvironment1.Connections(1).Close
DataEnvironment1.Connections(1).ConnectionString = "ProviDataEnvironment1r=Microsoft.Jet.OLEDB.4.0;Per sist Security Info=False;Data Source=" & App.Path & "\FACTOR.MDB"
DataEnvironment1.Connections(1).Open
DataEnvironment1.Recordsets("Command1").Close
DataEnvironment1.Recordsets("Command1").Open Sql
DataReport1.Show vbModal

mf_engineer
چهارشنبه 20 شهریور 1387, 23:49 عصر
کد:


sqlString = "SELECT * FROM tablename where fieldname='" & شرط & "'"
adoRS.Open sqlString, adoConn
Set DataReport5.DataSource = adoRS
With DataReport5.Sections("Section1").Controls 'section1 mean that section you create in datareport

.Item("text1").DataField = adoRS("fieldname").Name
.Item("text2").DataField = adoRS("fieldname").Name
.Item("text3").DataField = adoRS("fieldname").Name

End With
DataReportname.Show


من از همین کد اسفتاده کردم و تونستم که اطلاعات رو تو دیتاریپورت بریزم وچاپ کنم
یاحق