Access SQL   ›   MS SQL SERVER & DİĞER MS OFFICE VE VERİTABANI UYGULAMALARI   ›   DİĞER MS OFFICE VE VERİTABANI UYGULAMALARI   ›   MICROSOFT OFFICE PROGRAMLARI   ›   EXCEL   ›   EXCEL SORULARI   ›   EXCELDEN ADO ile TABLOYA OTOMATİK NUMARA OLUŞTURMAK

EXCELDEN ADO ile TABLOYA OTOMATİK NUMARA OLUŞTURMAK
Orion
Kıdemli Üye 400-1000

*
Kayıt Tarihi: 09.10.2009
Toplam 148 konu açtı.
Toplam 649 yorum yaptı.
Toplam 0 puanı bulunmakta.
Mevcut Office Sürümü:
Office 2010 TR,
Beğeniler: 0 / 1
#1
14-05-2011, 19:43
merhaba aşağıdaki kod ile excelde ado kullanarak tablo oluştueyorum.
Sorun yok.Oluşuyor .Ancak ilk(id değişkeni olarak tanımladığım ad ile oluşacak olan) sütundaki id alanını otomatik numara yapamdım.
Normal integer alan oluyor.
Kodlarım aşağıdadır ilgilenelere teşekkür ederim.
Bir alanlara verilere NULL bırakamıyorum.Otamatik sayı haricindekileri null değer bıarakabilirsem iyi olacak.Şimdi veri girmezsem bir şeyin ayarı regereud gibi bir şey dedi ayrlanmamış.null değeri giremezsizniz dedi.Teşekkür ederim.
Ofis 2010 kullanıyorm.ç
İlgilene arakdaşlara teşekkür edeim.
Visual Basic
  1. Sub alan_olustur2(ByVal yol As String, tablo_ad As String, id As String)
  2.  
  3.     'Microsoft ADO Ext. 2.8 for DDL and Security refaransı gerektirir
  4.     Dim Tablo_Adi As New Table, Cat As New ADOX.Catalog
  5.  
  6. ' 2) Oluşturduğumuz veritabanını açıyoruz
  7.     Cat.ActiveConnection = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & yol
  8.  
  9. ' 3) "Tablo2" adında bir tablo oluşturulup buna 7 adet alan ekliyoruz
  10.     With Tablo_Adi
  11.         .Name = tablo_ad
  12.         .Columns.Append id, adInteger 'Sayı
  13.         Set .Columns.Item(id).ParentCatalog = Cat
  14.         .Columns.Item(id).Properties("AutoIncrement") = True 'Otomatik Sayı
  15. .Columns.Append "Cadde", adVarWChar 'Metin





  Bul
  Alıntı
Bu mesajı beğenenler:
Orion
Kıdemli Üye 400-1000

*
Kayıt Tarihi: 09.10.2009
Toplam 148 konu açtı.
Toplam 649 yorum yaptı.
Toplam 0 puanı bulunmakta.
Mevcut Office Sürümü:
Office 2010 TR,
Beğeniler: 0 / 1
#2
15-05-2011, 01:06
Arkadaşalr bir süre verdiğim uğraştan sonra doğru kodu buldum.
Tablolar oluştuktan ve alanlar oluştuktan sonra en alda oto numara olacak sütüna aşağıdaki kodu yazınca oluyor.
Şu durumda bir tek veri girmeden bazı alanlardan atlayım.
veri girmeye mecbur olamyaım.
İlgilenen arkadaşlara teşekkür ederim.Smile
SQL
  1. Cat.TABLES.Append Tablo_Adi
  2.      'Otomatik sayı 1 den başlıyor.
  3.     Tablo_Adi.Columns.Item(id).Properties("Seed") = 1
  4.     Cat.ActiveConnection = Nothing
  5.     Set Cat = Nothing





  Bul
  Alıntı
Bu mesajı beğenenler:
assenucler
Kıdemli Üye >1000

*
Kayıt Tarihi: 21.03.2008
Toplam 154 konu açtı.
Toplam 2.119 yorum yaptı.
Toplam 11 puanı bulunmakta.
Mevcut Office Sürümü:
Office 2019,
Beğeniler: 0 / 4
#3
16-05-2011, 13:15
Sayın Orion;

Merhabalar ve iyi haftalar...

2. mesajınızdaki kodu ilk mesajınıza eklenmiş son hali nasıl olmalı?

Kodun tümünü eklemeniz mümkün mü?

Teşekkürler..



  Bul
  Alıntı
Bu mesajı beğenenler:
Orion
Kıdemli Üye 400-1000

*
Kayıt Tarihi: 09.10.2009
Toplam 148 konu açtı.
Toplam 649 yorum yaptı.
Toplam 0 puanı bulunmakta.
Mevcut Office Sürümü:
Office 2010 TR,
Beğeniler: 0 / 1
#4
16-05-2011, 16:13
Merhaba.
Kod aşağıdadki gibidir.
Şu an otonum alnı oluyor.
Sorun tabloya veri girerken bir alanı boş geçersem hata veriyor.Alanın regure gibi ikaz veriyor ayarlı depil diyor.
Ben icabında o alana veri girmeyebileyim.
Şimdilik o sorunu o lana veri girmeyeceksem YOK yazark çözdüm.
Ama hiç veri girmesemde kayıt olabilsin.
Teşekkür ederim.
Visual Basic
  1. Sub alan_olustur2(ByVal yol As String, tablo_ad As String, id As String)
  2.  
  3.     'Microsoft ADO Ext. 2.8 for DDL and Security refaransı gerektirir
  4.     Dim Tablo_Adi As New Table, Cat As New ADOX.Catalog
  5.     'Dim yol As String
  6.     'yol = ThisWorkbook.Path & "\VT111.mdb"
  7.  
  8. ' 1) Yeni Veritabanı oluşturuluyor
  9.     Set Cat = New ADOX.Catalog
  10.     'Cat.Create "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Yol
  11.  
  12. ' 2) Oluşturduğumuz veritabanını açıyoruz
  13.     Cat.ActiveConnection = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & yol
  14.  
  15. ' 3) "Tablo2" adında bir tablo oluşturulup buna 7 adet alan ekliyoruz
  16.     With Tablo_Adi
  17.         .Name = tablo_ad
  18.  
  19.         .Columns.Append id, adInteger 'Sayı
  20.         Set .Columns.Item(id).ParentCatalog = Cat
  21.         .Columns.Item(id).Properties("AutoIncrement") = True 'Otomatik Sayı
  22.         '.Columns.Item(id).Properties("Seed") = 0 'Otomatik Sayı
  23.         .Columns.Append "urun_kod", adInteger 'Sayı
  24.         .Columns.Append "AD_SOYAD", adVarWChar, 150 'Metin
  25.         .Columns.Append "SEHIR", adVarWChar, 150 'Metin
  26.         .Columns.Append "NOTLAR", adLongVarWChar, 200 'Metin
  27.     End With
  28.  
  29. ' 4) Tablo veritabana kaydediliyor
  30.      Cat.Tables.Append Tablo_Adi
  31.      'Otomatik sayı 1 den başlıyor.
  32.     Tablo_Adi.Columns.Item(id).Properties("Seed") = 1
  33.     Cat.ActiveConnection = Nothing
  34.     Set Cat = Nothing
  35. End Sub


(16-05-2011, 13:15)assenucler demiş ki: Sayın Orion;

Merhabalar ve iyi haftalar...

2. mesajınızdaki kodu ilk mesajınıza eklenmiş son hali nasıl olmalı?

Kodun tümünü eklemeniz mümkün mü?

Teşekkürler..




  Bul
  Alıntı
Bu mesajı beğenenler:


Benzer Konular...
Konu: Yazar Cevaplar: Gösterim: Son Mesaj
  Excelden wordde veri aktarımı lorenzo1903 4 1.783 13-09-2015, 13:46
Son Mesaj: lorenzo1903
  Excelden web sayfasına veri kelkitli 0 2.404 30-04-2008, 23:00
Son Mesaj: kelkitli

Foruma Git:


Bu konuyu görüntüleyen kullanıcı(lar): 1 Ziyaretçi