database nasıl oluşturulur yardım

[executionerr]

merhabalar kolay gelsin..
bir kamu kurumunda görev yapmaktayım
database nasıl oluşturulur bu konuda yardımcı olursanız sevinirim şimdiden yardımlarınız için teşekkür ederim...örnek verilecek olursa elimde yüzlerce kalem mal var ben bu mallara birer numara vermek istiyorum excelde oluşturmak istediğim program ile ben numarasını verdiğim ürünü girdiğimde bana kaç adet olduğunu ve hangi rafta olduğunu versin istiyorum yardımlarınız için tekrar teşekkür ederim

 

[vuranoğlu]

Merhaba
Form da "" Excel Database (Veritabanı) Çalışması"" aratırsanız bulabilirsiniz.

 

[Orion1]

Merhaba
Form da "" Excel Database (Veritabanı) Çalışması"" aratırsanız bulabilirsiniz.

Excelden database olmaz.Kodlar sanırım Haluk hocamdan alıntıdır.Ona bu vesile ile bir kez daha teşekkürlerimi iletirim.
Eğer accsess dosyası mdb uzantılı dosya iatiyorsanız aşağıdaki kodlar yetrer size

1) Bilgisayarda C:\TestDB.mdb adında yeni bir veri tabanı dosyası oluşturulmakta,
2) Bu dosyada MyTable2 adında bir tablo oluşturulmakta,
3) Bu tabloya da, İsim, Soyad, Tel alanları ilave edilmektedir.

Sub Test()
    Dim DatabasePath As String
    Dim Cat As Object
    Dim NewTable As Object

    DatabasePath = "C:\TestDB2.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 = "MyTable2"
        .Columns.Append "İsim"
        .Columns.Append "Soyad"
        .Columns.Append "Tel"
    End With

    Cat.Tables.Append NewTable
End Sub

 

[Orion1]

Buda ilk alanı otomatik biçimde biçimlendiryor.
Diğer alanlarıda biçimlendiriyo.Yol kendinize göre ayarlayınız.
"Yeni Mdb dosyası oluşturmak ve SIRA adl alanı Otomatik Sıra şeklinde
Biçimlendirmek ve Alanları biçimlendirmek"

Sub Mdb_Dosyası_Olustur_1()
    [B][COLOR="Red"]'Microsoft ADO Ext. 2.8 for DDL and Security refaransı gerektirir[/COLOR][/B]
    Dim Tablo_Adi As New Table, Cat As New ADOX.Catalog
    Dim Yol As String
    Yol = "C:\Evren\MDB\db2.mdb"

' 1) Yeni Veritabanı oluşturuluyor
    Set Cat = New ADOX.Catalog
    Cat.Create "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Yol
    
' 2) Oluşturduğumuz veritabanını açıyoruz
    Cat.ActiveConnection = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & Yol

' 3) "Tablo2" adında bir tablo oluşturulup buna 7 adet alan ekliyoruz
    With Tablo_Adi
        .Name = "Tablo2"
        .Columns.Append "SIRA", adInteger 'Sayı
        Set .Columns.Item("SIRA").ParentCatalog = Cat
        .Columns.Item("SIRA").Properties("AutoIncrement") = True 'Otomatik Sayı
        .Columns.Append "Tarih", adDate 'Tarih
        .Columns.Append "isim", adVarWChar 'Metin
        .Columns.Append "Soyad", adVarWChar 'Metin
        .Columns.Append "Yas", adInteger 'Sayı
        .Columns.Append "Tel"
        .Columns.Append "Adres", adLongVarWChar 'Not
    End With

' 4) Tablo veritabana kaydediliyor
     Cat.Tables.Append Tablo_Adi

    Cat.ActiveConnection = Nothing
    Set Cat = Nothing
End Sub