Slm ben visual basicte surucu kursu programı yazıyorum. Raporlama icin crystal report 10 kullanıyorum.
Fakat Raporu 1 den fazla access dosyası icin kullanmak istiyorum. Ornegin ; "c:\10.10.2005.mdb" tarihli access
dosyasıyla once raporlama yaptıktan sonra programı kapatmadan connection'ı kapatıp mesela "c:\11.12.2005.mdb"
tarihli access dosyasıyla raporlama yapmak istiyorum. fakat connectionı kapatamıyorum. Bana bu konuda yardımcı
olabilirmisiniz?

Option Explicit

Dim m_Report As New CrystalReport1
Dim cnn as adodb.connection
Dim cmd as adodb.command

Private Sub cmdOLEDB_Click()'connection Bagla
Dim fld As FieldObject

Set cnn = New ADODB.Connection
cnn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & file1 & ";Mode=ReadWrite|Share Deny None;Persist Security Info=False"
cnn.Open

Set cmd = New ADODB.Command
cmd.ActiveConnection = cnn
cmd.CommandType = adCmdText
cmd.CommandText = "SELECT GOREVLI.KURUM, GOREVLI.ADSOYAD, GOREVLI.KURUMGOREV, SINAVGOREVLERI.GOREV, GOREVLI.SONGOREV, GOREVLI.SINAVGOREV FROM SINAVGOREVLERI INNER JOIN GOREVLI ON SINAVGOREVLERI.ID = GOREVLI.SINAVGOREV ORDER BY GOREVLI.KURUM;"

m_Report.Database.AddADOCommand cnn, cmd
LoadReport
End Sub

Private Sub cmdcnnexit()'Connection kapa
set cmd = nothing
cnn.close
End Sub

Private Sub LoadReport()
Screen.MousePointer = vbHourglass
CRViewer1.ReportSource = m_Report
CRViewer1.ViewReport
Screen.MousePointer = vbDefault
End Sub

Kodlar buna benzer yardımcı olabilirseniz sevinirim. Simdiden Tesekkurler.
__________________