میشه یک datareport رو بر اساس یک ado ایجاد کرد

سلام

من یه برنامه نوشتم که جستجوی اون با دستوراد sql کار میکنه یعنی هر وقت میخوام دنبال یه چیز بگردم رکورد سورس رو با یه دستور sql که بر اساس تکس باکسی که ىر قسمت جستجو وجود داره درست میکنم مثلا:

sqlstr = "select * from personel where fname ='" & Text7.Text & "'"
Adodc1.RecordSource = sqlstr
Adodc1.Refresh

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

حالا چطور میتونم این داده های رو که به من نشون میده رو در یک data report برای چاپ نشود بدم

میشه یک datareport رو به جای dataeinvoremnt بر اساس یک ado ایجاد کرد

یا یه جوری این نتایج جستجو رو به datareport بفرستیم تا بتونیم ازشون یه گزارش چاپی بگیریم

ببین این بدردت میخوره

البته با sql هم میشه که من از روش sql بیشتر تو crystal report استفاده میکنم

نقل قول:

---

Private Sub XPButton1_Click()

Dim p As String
If MaskEdBox1.Text = " / / " Then
p = MsgBox("???C? EC??I ?C ?C?I ??C??I", vbInformation, "E???")
MaskEdBox1.SetFocus
Exit Sub
End If

Dim inp As String
Dim inp1 As String

inp = Combo1.Text
inp1 = MaskEdBox1.Text

DataEnvironment1.rsCommand2.Filter = "cod_type='" & inp & "' and dat_change='" & inp1 & "'"

Select Case Combo1.ListIndex
Case 0
data_kahesh.Show
Case 1
data_afzayesh.Show
Case 2
data_6.Show
Case 3
data_7.Show
End Select

MaskEdBox1.Text = " / / "

End Sub

---

میشه یکیم در بارش توضیح بدید

ظاهرا این یه تیکه از یه برنامست میشه همه اون برنامه رو بزارید تا ببینم چه کار کرده