Crystal Viewer

أدخل هنا وستجد الحل ان شاالله

CReport

السلام عليكم

جرب هذا أخي العزيز

Dim Report As New CrystalReport6
Dim cnn As New ADODB.Connection
Dim cmd As New ADODB.Command
Dim rs As New ADODB.Recordset

Private Sub Form_Load()
Report.DiscardSavedData
cnn.Open "PROVIDER=MSDASQL;DRIVER={SQL SERVER};SERVER=(local);DATABASE=DBname;UID=sa;PWD="
With cmd
.ActiveConnection = cnn
.CommandText = "select * from mytable "
.CommandType = adCmdText
End With
Set rs = cmd.Execute
Report.Database.SetDataSource rs, 3
Screen.MousePointer = vbHourglass
CRViewer1.ReportSource = Report
CRViewer1.ViewReport
Screen.MousePointer = vbDefault
CRViewer1.Zoom 100
End Sub
Private Sub exit_mnu_Click()
  rs.Close
  cnn.Close
  Unload Me
End Sub

اخي (محمد صادق) واخي (HnHn)

جزاكم الله خيرا كثيرا

سوف اجرب الكود