ايران ويج

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

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

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

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

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

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

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

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

ityuityiyuityuityuityujkhjkgkgfkgfhj

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


لینک صفحه

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

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
با پيوستي كه برات گذاشتم مي توني گزارش هم بگيري

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

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