دیتا ریپورت [بایگانی]

parisa_vb

جمعه 06 اردیبهشت 1387, 17:18 عصر

سلام...من یه برنامه نوشتم که ما می تونیم با باز کردن بانک اطلاعاتی اکسس هر نوع جستجویی رو که بخواهیم در اون انجام بدیم...فقط یه مشکل هست....
اینکه چطور نتایج بدست اومده رو در دیتا ریپورت قرار بدم...در حالت عادی اینکار رو بلدم...ولی در رابطه با بانک جدیدی که از طریق برنامه باز می کنم دچار مشکل شدم....(راستی اسم فیلدها و نام جدول بانک جدید رو از طریق برنامه میتونم بدست بیارم فقط ارتباط با ریپورت رو می خوام) ...
ممنون

vbhamed

جمعه 06 اردیبهشت 1387, 19:22 عصر

سلام

On Error Resume Next

Dim Sql As String

Sql = "Select * From Table1 Where ..."

Unload DataEnvironmet1

DataEnvironmet1.Connections(1).Close
DataEnvironmet1.Connections(1).ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=c:\test.mdb"
DataEnvironmet1.Connections(1).Open
DataEnvironmet1.Recordsets("Command1").Close
DataEnvironmet1.Recordsets("Command1").Open Sql

DataReport1.Show

parisa_vb

جمعه 06 اردیبهشت 1387, 22:01 عصر

سلام......از کدی که گذاشتید خیلی ممنون...ولی این چطور نام فیلد ها رو دریافت می کنه.....
در هر صورت متاسفانه مشکل می گیره....
میشه لطف کنید یه سورس در اختیارم بذارین...خیلی واسم مهمه:گریه:

parisa_vb

جمعه 06 اردیبهشت 1387, 22:11 عصر

این مشکل رو همش می گیره...هر کاری کردم درست نمیشه...لطفا یه سورس کمک کنید
failed getting rowset(s) from current data source

vbhamed

جمعه 06 اردیبهشت 1387, 22:18 عصر

سلام
شما اگه میشه نمونه برنامتون رو بزارید و بگید دقیقا چی می خواین تا براتون اصلاحش کنم
اما اگر شرطی داشتید بعد از ... که ادامه دستور Where هست بزارید
در حقیقت اون قسمت نباید همینطوری که هست استفاده بشه
اسم فیلد و شرط رو باید اونجا بزارید

parisa_vb

شنبه 07 اردیبهشت 1387, 14:22 عصر

On Error Resume Next

Dim Sql As String
Sql = "select * from " + Text16.Text + " where " + Combo1(0).Text + " like '%" & Text1.Text & "%' "
Unload DataEnvironmet1
DataEnvironmet1.Connections(1).Close
DataEnvironmet1.Connections(1).ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=d:\pari.mdb"
DataEnvironmet1.Connections(1).Open
DataEnvironmet1.Recordsets("Command1").Close
DataEnvironmet1.Recordsets("Command1").Open Sql
DataReport1.Show

parisa_vb

شنبه 07 اردیبهشت 1387, 14:29 عصر

مهندس دستور sql رو درست نوشتم..چون خودم باهاش جستجو می کنم...
یه بار دیگه مشکلم رو می گم...
من می خوام صفحه ریپورت گیری بتونه خودش رو با هر بانک اطلاعاتی جدید که باز می کنم وقف بده....متاسفانه نمی تونم سورس رو بذارم چون پروژه یه درسه...لطف کنید اگه سورسی در اختیار دارین بزارین...
ممنون

parisa_vb

شنبه 07 اردیبهشت 1387, 21:54 عصر

کسی نیست کمک کنه؟؟؟؟.....خیلی نیاز دارم

vahidm

شنبه 07 اردیبهشت 1387, 23:55 عصر

دوست عزیز همه کدهای بالا یه جور سر در گمیه
شما بگید اطلاعات رو بر چه اساسی فیلتر می کنید تا بهتون بگم چطوریه خیلی راحت با یک
خط میشه انجام داد حتی مرتب سازی فقط بگو برچه اساسی فیلتر می کنی ؟
ببخشید بای

shaghaghi

یک شنبه 08 اردیبهشت 1387, 07:31 صبح

Dim strSQL as String
strSQL="Select * From " & txtTblName & " Where " & cmbFldName(0).text & Like '%'
Dim rst As New ADODB.Recordset
rst.Open strSQL, "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\pari.mdb",adOpenForwardOnly, adLockOptimistic

If rst.EOF Then Exit Sub
Set DataReport1.DataSource = rst
DataReport1.DataMember = rst.DataMember
DataReport1.Show

vbhamed

یک شنبه 08 اردیبهشت 1387, 08:07 صبح

سلام
Command1 رو در DataEnvironment تعریف کردین ؟
اگر پروژه نمیشه حداقل بانک رو با چند تا رکورد آزمایشی بزارید
ضمنا دستور رو هم به شکل زیر اصلاح کنید

On Error Resume Next

Dim Sql As String

Sql = "Select * From " + Text16.Text + " where Instr(" & Combo1(0).Text & ", '" & Text1.Text & "') > 0"

Unload DataEnvironmet1

DataEnvironmet1.Connections(1).Close
DataEnvironmet1.Connections(1).ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Persist ecurity Info=False;Data Source=d:\pari.mdb"
DataEnvironmet1.Connections(1).Open

DataEnvironmet1.Recordsets("Command1").Close
DataEnvironmet1.Recordsets("Command1").Open Sql

DataReport1.Show