ارتباط كريستال ريپورت 9 با sql server در vb 6.0

[momo21]

ارتباط كريستال ريپورت 9 با sql server در vb 6.0
سلام

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

Dim crApp As New CRAXDDRT.Application
Dim crRept As New CRAXDDRT.Report
Dim crDBTab As CRAXDDRT.DatabaseTable
Dim objParam As CRAXDDRT.ParameterFieldDefinition

() Private Sub Command1_Click

(Set crRept = crApp.OpenReport(App.path + "\RPT_SalonReserve.rpt", 1
crRept.ParameterFields.GetItemByName("@SDate").Add CurrentValue TxtSdate.Text
crRept.ParameterFields.GetItemByName("@EDate").Add CurrentValue TxtEdate.Text
crRept.ParameterFields.GetItemByName("@SalonCode") .AddCurrentValue CmbSalonName.ItemData(CmbSalonName.ListIndex)

crRept.DataBase.LogOnServer "PDSSQL.DLL", "TMFR_BKU.cntbldg4.com", "Negahdasht", "sa", "123"

For n = 1 To crRept.DataBase.Tables.Count
crRept.DataBase.Tables(n).SetLogOnInfo "TMFR_BKU.cntbldg4.com", "Negahdasht", "sa", "123"
Next n

crRept.EnableParameterPrompting = False
With FrmReportViewer
If Len(ReportTitle) > 0 Then
.Caption = ReportTitle
End If

FrmReportViewer.CRViewer.ReportSource = crRept
FrmReportViewer.CRViewer.ViewReport
'crRept.DiscardSavedData
FrmReportViewer.Show
FrmReportViewer.ZOrder vbBringToFront
End With
Set crRept = Nothing
Set crApp = Nothing

http://barnamenevis.org/forum/images/statusicon/user_online.gif http://barnamenevis.org/forum/images/buttons/report.gif (http://barnamenevis.org/forum/report.php?p=584287) http://barnamenevis.org/forum/images/misc/progress.gif

[mpmsoft]

Set ObjRpt = ObjApp.OpenReport(App.Path & "\Report\OutCall.rpt")


Rs.Open "SELECT * FROM TblTelOut WHERE Left(Stime,10) Between '" & MaskEdBox1.Text & "' AND '" & MaskEdBox2.Text & "'", Conn, adOpenStatic
If Rs.RecordCount = 0 Then
MsgBox "Record Not Found", vbExclamation + vbMsgBoxRtlReading, "ÎØÇ"
Rs.Close
Exit Sub
End If
ObjRpt.Database.SetDataSource Rs
ObjRpt.FormulaFields.GetItemByName("FDate").Text = "'" & MaskEdBox1.Text & "'"
ObjRpt.FormulaFields.GetItemByName("TDate").Text = "'" & MaskEdBox2.Text & "'"
ObjRpt.FormulaFields.GetItemByName("User").Text = "'" & UserName & "'"



به این شکل دیگه نیازی نیست به بانک مستقل وصلش کنی

[momo21]

مرسي اما من گزارشم به sp متصله (join 4 تا جدوله) و نمي تونم با select ركورد هاي مورد نظر را فيلتر كنم.اگه ممكنه كد كامل آنرا كه كانكشن به sql زده بشه را برام بفرستيد