• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Veritabanı hakkında yardım

D

djoguzz

Katılım
2 Mart 2011
Mesajlar
120
Excel Vers. ve Dili
İşyerinnde Excel 2003
Evde Excel 2010
Arkadaşlar ekteki dosyayı veritabanı bağlantısı ile çalıştırmak istiyorum. Yani müşteri cari kartı ekleme çıkarma değiştirme silme işlemleri var stok işlemleri vs. var bunları veritabanı ile nasıl kullanabilirim veritabanı bilgim sıfır :( bunları detaylı şekilde anlatabilir misiniz acaba ?


arkadaşlar eski dosyayı eklemişim yanlışlıkla yeni dosyayı ekledim şimdi inşallah yardımcı olacak birisi çıkar..
 

Ekli dosyalar

Son düzenleme:
yokmu yardımcı olabilecek birisi ???
 
hocam teşekkürler cevap için inceliyorum ama bir türlü beceremedim programıda bitirmem gerekli nasıl yapabileceğimi çözemedim bir türlü exceldeki veriyi acsess e nasıl kayıt edilir acsesden nasıl excel e veri alınır bunlar gerekli ama yapamadım bir türlü
 
slm

kendi kullandığım yöntemi sana aktarayım...
ayrıca örnek çalışma ekde...

önce Microsoft ActiveX Data Objects 2,8 Library TOOL-REFERENCES Adımından Okeyle..


Kod: 
Dim CNN As ADODB.Connection
Dim RST As ADODB.Recordset

Public Sub access_Dosyaya_Baglan()
Set CNN = New ADODB.Connection
     With CNN
         .Provider = "Microsoft.Jet.OLEDB.4.0;" 'extended properties=""excel 8.0;hdr=yes"""
         .CursorLocation = adUseClient
         .ConnectionString = ThisWorkbook.Path + "\DATA.mdb"
         .Open
      End With
End Sub

Public Sub access_Dosyaya_KaYdet()
  access_Dosyaya_Baglan                    'Kapalı dosya ile Bağlantı kur
  Set RST = New ADODB.Recordset           'recort set oluştur
  RST.Open "SELECT * FROM Tablo1", CNN, adOpenKeyset,   adLockOptimistic 'kapalı dosya data.mdb Tablo1 den tümünü oku
  RST.AddNew       'sorgulanan bilginin sonuna yeni kayıt yeri aç.
     RST.Fields(1) = Cells(2, 2).Value  'VERİ1  ismine Field olarak kayıt örneği
     RST("VERI2") = Cells(3, 2).Value   'VERI2 ismine, isimle kayıt örneği
     RST("VERI3") = Cells(4, 2).Value   'VERI3 ismine, isimle kayıt örneği
     RST.Fields(4) = Cells(5, 2).Value  'VERİ4  ismine Field olarak kayıt örneği
RST.Update       'Değişen sorguyu tekrar data.mdb  Tablo1 den güncelle.
End Sub

Public Sub Access_Dosyadan_Getir()
Range("A15:Z2000").ClearContents                  'a-z hücreler bütününü temizle
access_Dosyaya_Baglan                       'Kapalı Dosya ile Bağlantı kur
  Set RST = New ADODB.Recordset             'YENİ recort set oluştur
  RST.Open "SELECT * FROM Tablo1", CNN, adOpenKeyset, adLockOptimistic 'Kapalı dosya data.mdb Tablo1 den tüm bilgileri oku
  Range("A15").CopyFromRecordset RST        'Aktif Çalışma sayfasının A15 sütunundan sorguyu hücrelere dök
End Sub



Private Sub CommandButton1_Click() 'Kayıt Butonu
access_Dosyaya_KaYdet
End Sub



Private Sub CommandButton2_Click() 'Getir Butonu
Access_Dosyadan_Getir
End Sub

değişik sorgulama ilede kayıtdan recortsete almak mümkün...
örnek çalışma ekde aynı çalışmada kapalı exel dosyasına kayıt yapmada mevcut...
 

Ekli dosyalar

Son düzenleme:
hımmmmmmmm' Alıntı:
kendi kullandığım yöntemi sana aktarayım...
ayrıca örnek çalışma ekde...

önce Microsoft ActiveX Data Objects 2,8 Library TOOL-REFERENCES Adımından Okeyle..


Kod: 
Dim CNN As ADODB.Connection
Dim RST As ADODB.Recordset

Public Sub access_Dosyaya_Baglan()
Set CNN = New ADODB.Connection
     With CNN
         .Provider = "Microsoft.Jet.OLEDB.4.0;" 'extended properties=""excel 8.0;hdr=yes"""
         .CursorLocation = adUseClient
         .ConnectionString = ThisWorkbook.Path + "\DATA.mdb"
         .Open
      End With
End Sub

Public Sub access_Dosyaya_KaYdet()
  access_Dosyaya_Baglan                    'Kapalı dosya ile Bağlantı kur
  Set RST = New ADODB.Recordset           'recort set oluştur
  RST.Open "SELECT * FROM Tablo1", CNN, adOpenKeyset,   adLockOptimistic 'kapalı dosya data.mdb Tablo1 den tümünü oku
  RST.AddNew       'sorgulanan bilginin sonuna yeni kayıt yeri aç.
     RST.Fields(1) = Cells(2, 2).Value  'VERİ1  ismine Field olarak kayıt örneği
     RST("VERI2") = Cells(3, 2).Value   'VERI2 ismine, isimle kayıt örneği
     RST("VERI3") = Cells(4, 2).Value   'VERI3 ismine, isimle kayıt örneği
     RST.Fields(4) = Cells(5, 2).Value  'VERİ4  ismine Field olarak kayıt örneği
RST.Update       'Değişen sorguyu tekrar data.mdb  Tablo1 den güncelle.
End Sub

Public Sub Access_Dosyadan_Getir()
Range("A15:Z2000").ClearContents                  'a-z hücreler bütününü temizle
access_Dosyaya_Baglan                       'Kapalı Dosya ile Bağlantı kur
  Set RST = New ADODB.Recordset             'YENİ recort set oluştur
  RST.Open "SELECT * FROM Tablo1", CNN, adOpenKeyset, adLockOptimistic 'Kapalı dosya data.mdb Tablo1 den tüm bilgileri oku
  Range("A15").CopyFromRecordset RST        'Aktif Çalışma sayfasının A15 sütunundan sorguyu hücrelere dök
End Sub



Private Sub CommandButton1_Click() 'Kayıt Butonu
access_Dosyaya_KaYdet
End Sub



Private Sub CommandButton2_Click() 'Getir Butonu
Access_Dosyadan_Getir
End Sub

değişik sorgulama ilede kayıtdan recortsete almak mümkün...
örnek çalışma ekde aynı çalışmada kapalı exel dosyasına kayıt yapmada mevcut...
Genişletmek için tıkla ...




hocam teşekkürler ancak ben mesaj 1 deki örneği nasıl uyarlayabilirim nasıl bu şekilde veritabanı ile çalışabilirim acaba ? yada hiç veritabanı ile çalışmazsam ne olur acaba otomatik kayıt ve otomatik yedek aldırabiliyorum excel dosyasına. örnektede görüldüğü gibi çok fazla müşteri kaydı ve stok kaydı olacak sonra satışlar bölümü falan vb. bir çok şey olacak. sizce nasıl kullanmalıyım bu programı ?
 
hocam kapalı excel dosyasından userformdaki listboxa, textbox'a, label e vb. veri almak mümkün mü acaba?
 
Excelin Dış veri al menüsü ile de alabilirsiniz.:cool
Önce çalışma sayfasına alın oradanda userformdaki nesnenize alın.:cool:
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst