Favorilerine Ekle | Giriş Sayfan Yap | Tavsiye Et

 

Kurs Tanıtım Sayfası | Süper Üye Kimdir? | Menü Tasarımı Konulu Örnek Ders
Kod İndir| Hazır Kodlar | Makaleler| İpuçları | VB .NET Kursu | Dersler | Forum | Alt Bölümler | Servisler
    Merhaba Misafir
    anasayfa » visual basic makaleleri » Access 2003 dosyasından Access 97 dosyasına tablo kaydetme
Üye Girişi
Kullanıcı Adı:  
Şifre : 
Kaydet ?
Siteden tam olarak faydalanabilmek için üye olmalısınız.
Unuttuğunuz şifrenizi öğrenebilmek için kayıt sırasında verdiğiniz Hatırlatma Cevabı'nı bilmeniz gereklidir.
Şifre hatırlatma işlevini sadece 3 defa kullanma hakkınız vardır.
Kullanıcı adını ve şifresini unutan üyelere email ile yardım verilmez.

Aktivasyon Gelmedi mi?Aktivasyon mesajınız email adresinize gelmedi mi?
Buraya tıklayarak bir kez daha aktivasyon mesajı gönderilmesini sağlayabilirsiniz.
Lütfen email hesabınızın BULK ve SPAM klasörlerini de kontrol ediniz.
Rastgele Makale

Uygulamalarımızın içinde Google'dan faydalanmak

Yazar: x-x-x-03
Her gün web browserimiz ile mutlaka ziyaret ettigimiz Google.com, arama servisini yanlızca web browserimiz aracılıgıyla degil, Nisan 2002 yılından beri SOAP arabirimi ile her turlu WSDL tanımlamayı destekleyen programlama dilininde aracılıgıyla 8 milyardan fazla indekslenmiş sayfayı hizmetimize sunuyor. Yanlızca webde degil, Google DesktopSearch ile masaustumuzdede google arama teknolojisini kulanabiliyoruz, SDK sını anlatan bir makaleyi onumuzdeki gunlerde yayınlayacagım. Ama şimdilik web kısmında arama yapmaya odaklanalım.


Webmasterlar
Sitenize Ekleyin!
Sitenizde "Son Eklenen 10 Visual Basic Yazısı"'nı göstermek ve içeriğini zenginleştirmek için buraya tıklayınız.

Vbasicmaster.com'a link verin!
Aşağıdaki minik banneri sitenize eklemek için tıklayın!

Üye Sayısı:
Ziyaretçiler nerede?
Yayın № : 11241
Yayın Tar:09.04.2009
Yazar : balbasy
Hit :1976

Bu Yazarın Yazıları Sadece bu yazarın makale göster
Bu Yazıyı Tavsiye Et

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.Connectionbaglantı.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.




Yorumlar, eklemeler ve düşünceler
        sağolasın

   Bozkurt78, 24.04.2009 20:16
   Eywallah hocam güzel bi paylaşımda ben bu programı yükledim daha bişey yapamadım bir yerden birseyde bulamıyorum. Ben seneye zaten bu programın dersini göreceğim ama yinede şimdiden ön bilgi lazım yardımcı olabilir misiniz..?


   iskeltan, 26.04.2009 16:59
© Hakan Ersöz 2000-2013| Üyelik Sözleşmesi | | Ödeme Bildirimi
Sitemizden yenilikleri hemen öğrenin, pop upları engelleyin, chat yapın... ToolBarımızı indirin:
Vasicmaster Toolbar'ı indirin