کمک در دیتا ریپورت

[mahsa-h]

سلام
میتونید از لینک زیر دانلود کنید
http://www.microland.persiangig.com/other/report.zip
امید وارم مفید واقع بشه
---------
مهسا

[jaber]

سلام
میتونید از لینک زیر دانلود کنید
http://www.microland.persiangig.com/other/report.zip
امید وارم مفید واقع بشه
---------
مهسا

ممنون مهسا جون اما به کار ام نخورد اگه خوب به سوال ام توجه می کردی می فهمیدی من با adodc کار میکنم اما شما با data کار کردید
نگاه دستورات من در بالا کنید می فهمید که من چی می گم

[hamed_Arfaee]

با سلام
من نمی دونم بدون اس کیو ال چطوری می شه این کارو کرد
من اینجا یک تیبل ساختم با اس کیو ال از لیست یافته ها بعد از اون جدول ریپورت گرفتم درسته که هنوز کامل نیست ولی خودت هم روش کار کن[attachment=146]

[jaber]

Private Sub KewlButtons1_Click()
If Text5 = "" Then GoTo 2
If Adodc1.Recordset.EOF = True Then
GoTo 2
Else
Adodc1.Recordset.MoveFirst
3 If Adodc1.Recordset.EOF = True Then
GoTo 2
Else
If Adodc1.Recordset.Fields(4).Value = Text5 Then
Text1 = Adodc1.Recordset.Fields(0).Value
Text2 = Adodc1.Recordset.Fields(1).Value
Text3 = Adodc1.Recordset.Fields(2).Value
Text4 = Adodc1.Recordset.Fields(3).Value
Text5 = Adodc1.Recordset.Fields(4).Value
Text6 = Adodc1.Recordset.Fields(5).Value
Text7 = Adodc1.Recordset.Fields(6).Value
Text8 = Adodc1.Recordset.Fields(7).Value
Text9 = Adodc1.Recordset.Fields(8).Value
Text10 = Adodc1.Recordset.Fields(9).Value
Text11 = Adodc1.Recordset.Fields(10).Value
Text12 = Adodc1.Recordset.Fields(11).Value
Text13 = Adodc1.Recordset.Fields(12).Value
Text14 = Adodc1.Recordset.Fields(13).Value
Text15 = Adodc1.Recordset.Fields(14).Value
Text16 = Adodc1.Recordset.Fields(15).Value
Text17 = Adodc1.Recordset.Fields(16).Value
If Check1 Then Check1.Caption = Adodc1.Recordset.Fields(17).Value
If Check1 Then Check2.Caption = Adodc1.Recordset.Fields(18).Value
If Check1 Then Check3.Caption = Adodc1.Recordset.Fields(19).Value
If Check1 Then Check4.Caption = Adodc1.Recordset.Fields(20).Value
If Check1 Then Check5.Caption = Adodc1.Recordset.Fields(21).Value
If Check1 Then Check6.Caption = Adodc1.Recordset.Fields(22).Value
If Check1 Then Check7.Caption = Adodc1.Recordset.Fields(23).Value
Else
Adodc1.Recordset.MoveNext
GoTo 3
End If
End If
End If
End Sub

از این راه می خوام سرچ کنه اما بعضی از کدها اشتباه است

[jaber]

تو رو خددا هرچی زودتر

[jaber]

خوشتون میاد از التماس ؟

[jaber]

ityuityiyuityuityuityujkhjkgkgfkgfhj

[hamed_Arfaee]

یک مقاله در مورد کد نویسی و ارتباط با دیتابیس با روش adoگذاشتم تو لینک زیر برو ببین


لینک صفحه

[tanhatarin]

سلام من ریپورت از دیتا بیس رو گرفتم با استفاده از dataenvironment و datareport

من ریپورت رو از اکسس گرفتم حالا می خوام ریپورت از textbox بگیرم آیا میشه کمک ام کنید ممنون می شم

و یا اگه بشه من تو دیتابیس سرچ کنم فایل ها داخل دیتاگرید نشون بده بد که کلید ریپورت رو زدم از دیتاگرید

ریپورت بگیرم تقریبا میشه مثل برنامه persian api همین سایت بعد از جستجو اگه دلم خاست ریپورت بگیرم

اگه این هم مثل سوالات قبلی ام پاسخ بدهید ممنون می شم و نمی خوام از تمام دیتا بیس ریپورت بگیره

فقط از همون چیزی که جستجو کردم

[tanhatarin]

سلام
شما نمي توني از هر گريدي استفاده كني تا به ديتا اينواير منت متصل بشه
تو لود فرم بنويس:

Set DataGrid1.DataSource = Nothing
براي رفرش كردن
Set DataGrid1.DataSource = DataEnvironment1
DataGrid1.DataMember = "command1"
If DataEnvironment1.Connection1.State = 1 Then
DataEnvironment1.rsCommand1.Close
بستن مجدد ديتا اينواير منت

حالا تو چنج تكستي كه مي خواي فيلتر طبق اون صورت بگيره بنويس

DataEnvironment1.rsCommand1.Source = "select * from tabel1 where name like'%" & Text1.Text & "%'"
tabel1 نام بانك
name  نام فيلد
كلمه like و علامت % براي پيدا كردن كلمات مشابه به كار ميره
DataEnvironment1.rsCommand1.Open

Set DataGrid1.DataSource = Nothing

Set DataGrid1.DataSource = DataEnvironment1

DataGrid1.DataMember = "command1"
DataGrid1.Refresh
DataEnvironment1.rsCommand1.Close

End If
بانوشت هر حرفي تو تكست فيلتر انجام ميشه
براي نمايش روي ديتا ريپورت هم كافيه كه دستور DataEnvironment1.rsCommand1.Source = "select * from tabel1 where name like'%" & Text1.Text & "%'"

DataEnvironment1.rsCommand1.Open

DataReport1.Show
DataEnvironment1.rsCommand1.Close
با پيوستي كه برات گذاشتم مي توني گزارش هم بگيري

[jaber]

سلام اول میشه تو یک سورس بذاری بعدش هم با table , adodc , datagrid

ممنون می شم اگه با سورس بذاری