ايران ويج

هر چه زود تر ممنون مي شم

سلام توي رفرش DataEnvironment دچار مشكل شدم هر چه سريعتر نتيجه رو مي ذارم.

mr30

انگار نمی خوای بذاری سهیل جان

انگار من سر کارم

سهیل جان منو مسخره گرفته مگه من حلاف تو ام اگه نمی خوای بذارب بگو دیگه

سلام
خسته نباشي.الان فكر كن ما تو فصل امتحانات هستيم.من فقط روزي كه امتحان مي دهم 1 ساعت مي رم سر كامپيوتر وقتي گفتم مي دم رفتم سرش ولي همينطوري كه گفتم توي رفرش مشكل دارم.حالا شما قضاوت كن مي شه.
وسط امتحانات كه نمي شه عزيز
ببخشيد
باي

حق با شماست ولی زود تر ممنون می شم :(

سلام دوست عزیز
اینم جواب جواب سوال شما
dataenvironment1.cnn1.Open "Provider=Microsoft.Jet.OLEDB.3.51;Data Source=m.mdb"
dataenvironment1.rscmd1.Open "select * from m where sahebhesab='" & Trim(mah) & "'", dataenvironment1.cnn1, adOpenStatic
datareport1.Show

اینو باید کجا بنویسم اگه مبشه با سورس بدین ممنون می شم

در ضمن یک  نگاهی به گفتگو ها بندازید بعد مثلا صفحه اول تاپیک

من با sql نمی خوام باشه

adodc1 و table هم باشه

عزيز با اين كار مي شه.شما باز كردي و بستي . ولي ايشون مي خوان يه چند تا پر كنند چاپ كنه شما نتيجه يك جستجو رو نشون مي دي
مرسي
باي

آره من نتیجه یک جستجو می خوام نه چیز دیگه جستجو که کردم بعد یک

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

Private Sub Command3_Click()
If Text2 = "" 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(1).Value = Text2 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
Else
Adodc1.Recordset.MoveNext
GoTo 3
End If
End If
End If
2 End Sub

از چیز دیگه هم بلد نیستم بهتره از همین روش باشه
جشتجو که کرد بعد یک کلید بزارم روش که زدیم گزارش بگیره