Yeni veri tabanı oluşturma hakkında

Tankut SAZLI · 4 Aralık 2006

Arkadaşlar merhaba.
Aşağıdaki kodlarla bir veri tabanı oluşturuyorum.(VB6 da)Fakat burda size üç sorum olacak:
1-Veri tabanının ismini ben belirlemek istiyorum.Yani form üzerindeki Textbox nesnesinde yazdığım şey(Ör:2006-2007) veri tabanının ismi olsun yani oluşturulan veri tabanının ismi 2006-2007 olsun.Bunu bir türlü başaramadım.
2-Veri tabanı dosyasına sadece bir tablomu atabiliyoruz.Yani birden fazla tablonun olduğu bir veri tabanına ihtiyacım var.Fakat yukarıdaki kodlarla sadece bir tablo oluşturabiliyorum.
3-Veri tabanı tablolarına alanları atarken bu alnaların formatını veya uzunluğunu nasıl tespit ediyoruz.
Teşekkürler.

Kod:

Private Sub command1_click()
    Dim DatabasePath As String
    Dim Cat As Object
    Dim NewTable As Object
    
    DatabasePath = App.Path + "\Tools\Data.mdb "
    Set Cat = CreateObject("ADOX.Catalog")
    Cat.Create "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & DatabasePath
    
    Set NewTable = CreateObject("ADOX.Table")
    
    With NewTable
        .Name = "KÜTÜK"
        .Columns.Append "Kimlik"
        .Columns.Append "SINIF_ŞUBE"
        .Columns.Append "OKUL_NO"
        .Columns.Append "ADI"
        .Columns.Append "SOYADI"
  ..................
  ..................

    End With
       Cat.Tables.Append NewTable
 
End Sub

Muzaffer Ali · 4 Aralık 2006

1- DatabasePath = App.Path + "\Tools\Data.mdb " Satırını değiştirin
DatabasePath = App.Path + "\Tools\" & Text1.text & ".mdb"

2-Cat.Create "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & DatabasePath
satırı ile yeni bir Acces dosyası oluşturuluyor. Siz ikinci bir tablo oluşturmak için aynı kodları kullanırsanız burada bu dosya zaten var gibi bir hata verir çünkü aynı adlı bir dosyayı aynı yerde oluşturmaya çalışıyprsunuz yeni dtablo oluşturmak istediğiniz veritabanını sadece açmalısınız yani aşağıdaki gibi açmalısınız
Cat.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & DatabasePath

3-.Columns.Append "Kimlik", adBoolean 'Evet/hayır
.Columns.Append "SINIF_ŞUBE",,2 'İki karakter uzunluğunda metin
.Columns.Append "OKUL_NO", adCurrency 'Parasal değer

Dim NewTable As Object yerine
Microsoft ActiveX Data Objects Library kütüphanesini son sürümünü referans olarak ekleyin
Dim NewTable As New ADOX.Table kullanırsanız parametreler otomatik geleceğinden tüm değişken tiplerini görebilirsiniz.

Tankut SAZLI · 4 Aralık 2006

Sayın dalgalıkur;
Açıklamanız için teşekkür ederim.Fakat veritabanı dosyasına birden fazla tablo ekleme kısmına örnek bir kod yazabilirmisiniz.Ben bir kaç deneme yaptım fakat olmadı.

Muzaffer Ali · 4 Aralık 2006

Özür dilerim hata benden kaynaklanıyor

Sizdeki şu satırı sadece yeni bir mdb dosyası oluşturmak için kullanın
Cat.Create "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & DatabasePath

Yenibir tablo eklemek içinde aşağıdaki şekilde bağlantı kurun
Cat.Open DatabasePath

Tankut SAZLI · 4 Aralık 2006

Kod:

Private Sub command1_click()
    Dim DatabasePath As String
    Dim Cat As Object
    Dim NewTable As Object
    
    DatabasePath = App.Path + "\Tools\Data.mdb "
    Set Cat = CreateObject("ADOX.Catalog")
    Cat.Create "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & DatabasePath
    
    Set NewTable = CreateObject("ADOX.Table")
    
    With NewTable
        .Name = "K&#220;T&#220;K"
        .Columns.Append "Kimlik"
        .Columns.Append "SINIF_&#350;UBE"
        .Columns.Append "OKUL_NO"
        .Columns.Append "ADI"
        .Columns.Append "SOYADI"
  ..................
  ..................

    End With        
Cat.Open DatabasePath

        With NewTable
        .Name = "tablo2"
        .Columns.Append "alan1"
        .Columns.Append "alan2"
        .Columns.Append "alan3"
        .Columns.Append "alan4"
        .Columns.Append "alan5"
        End With


       Cat.Tables.Append NewTable
 
End Sub

Yani kodlar bu şekildemi olmalı.

Tankut SAZLI · 4 Aralık 2006

Sormayı unuttuğum başka bir şey de şu;
Veri tabanının şifreli olmasını istersek nasıl kodlamalıyız.

recep · 4 Aralık 2006

Tankut SAZLI' Alıntı:
Sormayı unuttuğum başka bir şey de şu;
Veri tabanının şifreli olmasını istersek nasıl kodlamalıyız.

benden de aynı soru banada lazım.

alpi · 5 Aralık 2006

Şifreli VeriTabanı oluşturmak ve Tablo Eklemek

'------------------------------------------------------------
'Öncelikle aşağıdaki referansları eklemelisiniz.
'---
'Microsoft ActiveX Data Objects Library (Son Versiyonu)
'Microsoft ADO Ext. 2.5 for DDL and Security(Son Versiyonu)
'------------------------------------------------------------
Şifreli bir VeriTabanı oluşturmak için

Kod:

Option Explicit
Sub DataBaseOluştur()
    Dim cat As New ADOX.Catalog
    Dim Şifre As String
    Dim DatabasePath As String
    Şifre = "aLPi"
    DatabasePath = ThisWorkbook.Path & "\denemeVeri.mdb"
    cat.Create "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & DatabasePath & ";User ID=admin;Jet OLEDB:Database Password=" & Şifre
    Set cat = Nothing
End Sub

Şifreli bir Veritabanına Tablo Eklemek için

Kod:

Sub TabloEkle()
    Dim cat As New ADOX.Catalog
    Dim tbl As New ADOX.Table
    Dim conn As New ADODB.Connection
    Dim rst As New ADODB.Recordset
    Dim Şifre As String
    Dim DatabasePath As String
    Şifre = "aLPi" 
    DatabasePath = ThisWorkbook.Path & "\denemeVeri2.mdb"
    With conn
        .Provider = "Microsoft.JET.OLEDB.4.0"
        .Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & DatabasePath & ";User ID=admin;Jet OLEDB:Database Password=" & Şifre
    End With
    cat.ActiveConnection = conn
    With tbl
        .Name = "SatışTablosu"
        With .Columns
            .Append "Adı", , 50               '50 karakter giriş izni
            .Append "Soyadı", , 50            '50 karakter giriş izni
            .Append "Maaşı", adCurrency       'Parasal değer giriş izni
            .Append "EvliBekar", adBoolean    'Evet Hayır(True False) giriş izni
        End With
    End With
    cat.Tables.Append tbl
    Set tbl = Nothing
    Set cat = Nothing
    conn.Close
End Sub

Tankut SAZLI · 5 Aralık 2006

Sayın Alpi;
Sanırım sorumu yanlış anladınız.Öncelikle ben excel de değil VB6 da çalışıyorum.İkincisi kodlarınızı her nekadar uyarlamış da olsam hata veriyor.Yukarıda verdiğim kodlara bakarsanız.
Bu arada 2. sorunu şu şekilde hallettim.

Kod:

Private Sub Command1_Click()
    Dim DatabasePath As String
    Dim Cat As Object
    Dim NewTable As Object
    
    DatabasePath = App.Path + "\Tools\" & Text1.Text & ".mdb" 'Veritaban&#305;na yol g&#246;sterir ve Text1de yazan&#305; isim olarak verir
    Set Cat = CreateObject("ADOX.Catalog")
    Cat.Create "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & DatabasePath 'Veritaban&#305; yarat&#305;r
      
Set NewTable = CreateObject("ADOX.Table") 'Tablo yarat&#305;r
    With NewTable
        .Name = "Tablo1" 'Eklenen tablonun ismini belirler
        .Columns.Append "AlanAd&#305;1" 'Tablodaki alan isimleri belirlenir
        .Columns.Append "AlanAd&#305;2"
        .Columns.Append "AlanAd&#305;3"
   End With
Cat.Tables.Append NewTable 'Yarat&#305;lan tablo &#246;zelliklerini ekler
Set NewTable = Nothing
  
Set NewTable2 = CreateObject("ADOX.Table") '&#304;kinci tablo ekler
    With NewTable2
        .Name = "Tablo2"
        .Columns.Append "AlanAd&#305;1"
    End With
Cat.Tables.Append NewTable2
Set NewTable2 = Nothing

Set NewTable3 = CreateObject("ADOX.Table")
    With NewTable3
        .Name = "TabloAd&#305;3"
        .Columns.Append "AlanAd&#305;1"
        .Columns.Append "AlanAd&#305;2"
        .Columns.Append "AlanAd&#305;3"
        .Columns.Append "AlanAd&#305;4"
        .Columns.Append "AlanAd&#305;5"
        .Columns.Append "AlanAd&#305;6"
    End With
Cat.Tables.Append NewTable3
Set NewTable3 = Nothing

End Sub

Geriye bir tek kullanıcıların data dosyasına girerek bozmasını önlemek amacıyla şifreleme ve sütun formatları kaldı(yani istediğim sütunun 11 basamaklı sayı,50 karakterli metin özelliklerini kodlama)
Teşekkürlerç

alpi · 5 Aralık 2006

Yukarıda Sayın Dalgalikur un da dediği gibi bir veritabanını oluşturmak için farklı ona erişmek için farklı kodlar kullanılmalı.
Son verdiğiniz Kodda geçen Cat.Create..... ile veritabanı(*.mdb) dosyasını oluşturuyorsunuz ve daha sonra buna tablo ekliyorsunuz. Son verdiğiniz kodu ikinci kez çalıştırdığınızda hata veriyor çünkü Cat.Create..... ile ile aynı dizinde aynı adda bir veritabanı oluşturmaya çalışmış olursunuz. Onun için bunları ayırmanızı tavsiye ederim.

Verdiğim kodlar Excel yada VisualBasic farketmez ikisindede çalışıyor.

Geriye bir tek kullanıcıların...... şeklinde başlayan sorunuzun yanıtı zaten son verdiğim kodlarda mevcut

Kod:

        With .Columns
            .Append "Ad&#305;", , 50               '50 karakter giri&#351; izni
            .Append "Soyad&#305;", , 50            '50 karakter giri&#351; izni
            .Append "Maa&#351;&#305;", adCurrency       'Parasal de&#287;er giri&#351; izni
            .Append "EvliBekar", adBoolean    'Evet Hay&#305;r(True False) giri&#351; izni
        End With

şifreleme ve şifreli veritabanına erişim kodlarıda en son verdiğim kodlarda mevcut
Yoksa sorunuzu mu yanlış anlıyorum.

Tankut SAZLI · 5 Aralık 2006

Verdiğim kodlar Form üzerindeki Text1 nesnesine yazılana göre isim vererek data açıyor.Verilen isim bir kere olacağından(programın gidişatı gereği)Ancak yinede dikkate alacağımdan emin olabilirsiniz.Şifreleme olayına gelince
& ";User ID=admin;Jet OLEDB

atabase Password=" & Şifre
verdiğiniz kodda user ID=admin olayı kafama takıldı.Bunun gerekliliği hakkında bilgi verebilirmisiniz.
Sütun biçimlendirmede ise anladığım kadarıyla metin karakter sayısı 50 olsun demişsiniz.Peki örneğin okul no için 5 karakterli bir sayı,tarih biçimlendirmelerini nasıl yapmam gerekiyor.

(NOT:Bu arada şireleme olayını da sayenizde çözmüş bulunmaktayım,teşekkürler.Cat.Create.... satırının sonuna& ";User ID=admin;Jet OLEDB

atabase Password=" & Şifre ekleyerek çözüldü. )

alpi · 5 Aralık 2006

Tankut SAZLI' Alıntı:
Verdiğim kodlar Form üzerindeki Text1 nesnesine yazılana göre isim vererek data açıyor.Verilen isim bir kere olacağından(programın gidişatı gereği)Ancak yinede dikkate alacağımdan emin olabilirsiniz.Şifreleme olayına gelince
& ";User ID=admin;Jet OLEDBatabase Password=" & Şifre
verdiğiniz kodda user ID=admin olayı kafama takıldı.Bunun gerekliliği hakkında bilgi verebilirmisiniz.
Sütun biçimlendirmede ise anladığım kadarıyla metin karakter sayısı 50 olsun demişsiniz.Peki örneğin okul no için 5 karakterli bir sayı,tarih biçimlendirmelerini nasıl yapmam gerekiyor.

1-(user ID=admin) Bu yeni oluşturduğunuz veritabanın için kullanıcı adı belirtiliyor.
2-(örneğin okul no için 5 karakterli bir sayı) 50 rakamını 5 ile değiştirmeniz yeterli
3-(tarih biçimlendirmelerini) En üstte bahsettiğim referansları eklerseniz zaten argümanlar otomatik olarak size gösterilecektir. Yani:

Kod:

.Append "EvliBekar"

Satırını yazdıktan sonra virgül(,) ve boşluk tuşuna bastığınızda seçebileceğiniz tüm veri türleri liste şeklinde açılacaktır. Eğer boşluğa bastıktan sonra liste açılmıyorsa Ctrl+Boşluk tuşlarına basın.
Ama ben yinede tarih bçimi için kullanacağınız argumanı vereyim -adDate-
İyi çalışmalar

Tankut SAZLI · 6 Aralık 2006

Bu durumda yeni kodlar :

Kod:

Private Sub Command1_Click()
    Dim DatabasePath As String
    Dim Cat As Object
    Dim NewTable As Object
    Dim &#350;ifre As String
    &#350;ifre = "" 'Veritaban&#305;n&#305; &#351;ifreliyoruz."xxxxx" x yazan yere &#351;ifrenizi yaz&#305;n
    DatabasePath = App.Path + "\Tools\" & Text1.Text & ".mdb" 'Veritaban&#305;na yol g&#246;sterir ve Text1de yazan&#305; isim olarak verir
    Set Cat = CreateObject("ADOX.Catalog")
    Cat.Create "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & DatabasePath & ";User ID=admin;Jet OLEDB:Database Password=" & &#350;ifre '&#350;ifreli veritaban&#305; yarat&#305;r
      
      
Set NewTable = CreateObject("ADOX.Table") 'Tablo yarat&#305;r
    With NewTable '&#304;lk tabloya ait &#246;zellikleri s&#305;ralayaca&#287;&#305;z
        .Name = "Tablo1" 'Eklenen tablonun ismini belirler
        .Columns.Append "AlanAd&#305;1", , 50 'Tablodaki alan isimleri belirlenir,karakter uzunlu&#287;u 50
        .Columns.Append "AlanAd&#305;2", , 40
        .Columns.Append "AlanAd&#305;3", adCurrency 'Parasal bi&#231;im
   End With
Cat.Tables.Append NewTable 'Yarat&#305;lan tablo &#246;zelliklerini ekler
Set NewTable = Nothing
  
Set NewTable2 = CreateObject("ADOX.Table") '&#304;kinci tablo ekler
    With NewTable2
        .Name = "Tablo2"
        .Columns.Append "AlanAd&#305;1"
    End With
Cat.Tables.Append NewTable2
Set NewTable2 = Nothing

Set NewTable3 = CreateObject("ADOX.Table")
    With NewTable3
        .Name = "TabloAd&#305;3"
        .Columns.Append "AlanAd&#305;1", adDate 'Tarih bi&#231;imi
        .Columns.Append "AlanAd&#305;2", adBoolean 'Evet-Hay&#305;r bi&#231;imi
        .Columns.Append "AlanAd&#305;3"
        .Columns.Append "AlanAd&#305;4"
        .Columns.Append "AlanAd&#305;5"
        .Columns.Append "AlanAd&#305;6"
    End With
Cat.Tables.Append NewTable3
Set NewTable3 = Nothing

End Sub

olması gerekşyor.Fakat ne yazıkki
adBoolean
adDate
adCurrency
satırlarında hata veriyor.

alpi · 6 Aralık 2006

Sayın Tankut SAZLI tekrar rica ediyorum lütfen dediğim referansları ekleyiniz. Göreceksiniz ki bu sorun çözülmüş olacak. Birde referans ekleyerek deneyin. adBoolean yazan yeri silin ve Ctrl+Boşluk tuşlarına basın göreceksinizki VB6 size tercih edebileceğiniz değişken tiplerini sunacaktır.

Tankut SAZLI · 6 Aralık 2006

Sayın Alpi;
Dediğinizi yapmak istemiştim fakat bahsettiğiniz components ler yok,bir türlü bulamadım defalarca kontrol etmeme rağmen.

alpi · 6 Aralık 2006

Birde

Kod:

.Columns.Append "AlanAdı3", ADODB.adCurrency

şeklinde deneyin.

Tankut SAZLI · 6 Aralık 2006

yine hata verdi.

alpi · 6 Aralık 2006

Son çare olarak şunu önereyim
sık kullanılan bazılarının numara olarak karşılığını verdim bu şekilde kullanın.

Kod:

adBoolean '11
adCurrency '6
adDate '7
adDouble '5
adEmpty '0
adInteger '3
adNumeric '131

kullanım şekli

Kod:

.Columns.Append "AlanAdı3", 6'adCurrency

Yeni veri tabanı oluşturma hakkında

Tankut SAZLI

Muzaffer Ali

Destek Ekibi

Tankut SAZLI

Muzaffer Ali

Destek Ekibi

Tankut SAZLI

Tankut SAZLI

recep

alpi

Tankut SAZLI

alpi

Tankut SAZLI

alpi

Tankut SAZLI

alpi

Tankut SAZLI

alpi

Tankut SAZLI

alpi