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

[asirha]

سلام

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

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

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

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

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

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

[vb341]

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

[vb341]

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

[asirha]

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

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

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