[asemshahen5]

عدل الكود التالي :

PHP كود :

   Sub dvgfill()
        da.Clear()
        dt = New OleDbCommand("select * from AD", con)
        con.Open()
        da.Load(dt.ExecuteReader)
        rpt1.SetDataSource(da)
        CrystalReportViewer1.ReportSource = rpt1
        CrystalReportViewer1.LogOnInfo(0).ConnectionInfo.Password = ""
        CrystalReportViewer1.RefreshReport()
    End Sub 


او هذا الكود :

PHP كود :

   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Application.DoEvents()
        Dim ConInfo As New CrystalDecisions.Shared.TableLogOnInfo
        ConInfo.ConnectionInfo.ServerName = Application.StartupPath & "\NZ1.accdb"
        ConInfo.ConnectionInfo.DatabaseName = "NZ1.accdb"
        ConInfo.ConnectionInfo.UserID = "Admin"
        ConInfo.ConnectionInfo.Password = ""
        rpt1.Database.Tables(0).ApplyLogOnInfo(ConInfo)
        Dim frm As New FRMM
        frm.CrystalReportViewer1.ReportSource = rpt1
        frm.CrystalReportViewer1.LogOnInfo(0).ConnectionInfo.Password = ""
        frm.CrystalReportViewer1.RefreshReport() ''نسيت هذا السطر
        frm.ShowDialog()
    End Sub