Anasayfa > Kodlar > VB6 ile Access 2003 dosyasından access 97 dosyasına tablo kaydetmek

VB6 ile Access 2003 dosyasından access 97 dosyasına tablo kaydetmek

Visual Basic 6.0 içerisinde Ado nesnesi kullanarak MS Office 2003 ve daha yüksek MS Office versiyonları ile çalışmanız mümkündür. Ancak bu sürüm ile hazırladığınız dosyalarınızı yazdırmak istediğinizde Crystal Report 2.0 sürümü yetersiz gelecektir. Çünkü Crystal Report 2.0 sürümü MS Office 97 ile çalışacak şekilde tasarlanmıştır.

Bu sorunu çözmek için aşağıdaki kod işe yarayacaktır. Kod içerisinde gerekli açıklamalar yapılmıştır.

 

Private Sub Command1_Click()

Dim KaynakVT As String
Dim HedefVT As String
Dim baglantı As ADODB.Connection
Dim file As Database
Dim i As Integer

‘VERİYE KAYNAKLIK EDEN OFFICE 2003 KAYNAK VERİTABANI DOSYASINI ‘TANIMLA
KaynakVT = App.Path + “\KAYIT03.mdb”

‘KAYNAK VERİTABANI DOSYASINA BAĞLANTI OLUŞTUR VE BAĞLANTIYI AÇ
Set baglantı = New ADODB.Connection
baglantı.ConnectionString = “Provider=Microsoft.Jet.OLEDB.4.0;” & _
“Data Source=” & KaynakVT & “;” & “Persist Security Info=False”
baglantı.Open

‘OFFICE 97 HEDEF VERİTABANI DOSYASINI KULLANIMA AÇ
Set file = OpenDatabase(App.Path + “\KAYIT97.mdb”)

‘OFFICE 97 HEDEF VERİTABANI İÇİNDEKİ RAPOR DOSYASI VARSA SİL
For i = 0 To file.TableDefs.Count – 1
If file.TableDefs(i).Attributes = 0 Then
If file.TableDefs(i).Name = “RAPOR” Then
file.Execute “DROP TABLE RAPOR”
End If
End If
Next i
file.Close

‘HEDEF OFFICE 97 HEDEF VERİTABANI DOSYASINI TANIMLA
HedefVT = App.Path + “\KAYIT97.mdb”

‘OFFICE 2003 KAYNAK VERİTABANI DOSYASI İÇİNDEKİ RAPORLAR TABLOSUNU
‘OFFICE 97 HEDEF VERİTABANI DOSYASI İÇİNE RAPOR TABLOSU OLARAK ‘KAYDEDEN SQL CÜMLESİNİ ÇALIŞTIR
baglantı.Execute “SELECT * INTO RAPOR IN ‘” & HedefVT & “‘ FROM RAPORLAR”

‘İŞLEM BAŞARILI İSE TAMAM İLETİ KUTUSUNU GÖRÜNTÜLE
MsgBox (“TAMAM”)
End Sub

Bu konuda daha fazla bilgi edinmek isteyenler blkhasimhoca@hotmail.com adresinden bana ulaşabilirler.

  1. Henüz yorum yapılmamış.
  1. No trackbacks yet.

Bir Cevap Yazın

Aşağıya bilgilerinizi girin veya oturum açmak için bir simgeye tıklayın:

WordPress.com Logosu

WordPress.com hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Twitter resmi

Twitter hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Facebook fotoğrafı

Facebook hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Google+ fotoğrafı

Google+ hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Connecting to %s

%d blogcu bunu beğendi: