Vb ile tablo açma

1 2
27/10/2009, 01:11

malidolu

Merhaba Arkadaşlar;
Vb kodu ile yeni tablo açma (Her tabloya beleirlediğim ayrı isim)tablo alan adları oluşturma hakkında yardımcı olurmusunuz.Yada şöyle diyeyim ekteki dosyada klasör seçmem gerekiyor tablo oluşturması için fakat sadece tabloyu adlandırarak açmasını nasıl sağlarım.Buna başkabir örnek entegre ederek şu başaramadığım kataloglamıyı yapmaya çalısaçağımda.
27/10/2009, 12:23

Puletin

Kod:
Private Sub Komut0_Click()

    Dim dbConnectStr As String
    Dim Catalog As Object
    Dim cnt As ADODB.Connection
    Dim dbPath As String

    'Buraya veritabanı adresini giriniz
    dbPath = Me.Application.CurrentProject.Path & "\" & Me.Metin1 & ".mdb"
    dbConnectStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & dbPath & ";"

    'Yeni veritabani yarat
    Set Catalog = CreateObject("ADOX.Catalog")
   Catalog.Create dbConnectStr
    Set Catalog = Nothing

    'Yeni veri tabanına bağlan
    Set cnt = New ADODB.Connection
    With cnt
        .Open dbConnectStr
        .Execute "CREATE TABLE " & Me.Metin3 & " ([Adi] text(50) WITH Compression, " & _
                 "[Soyadi] text(150) WITH Compression, " & _
                 "[BabaAdi] text(50) WITH Compression, " & _
                 "[AnneAdi] text(50) WITH Compression, " & _
                 "[Sehir] text(20) WITH Compression, " & _
                 "[PostaKod] decimal(6))"
    End With
    Set cnt = Nothing



End Sub

Önce yazdığını veri tabanı adını arar varsa onun içine oluşturmak istediğiniz tabloyu yaratır .Yoksa veritabı oluşturarak daha sonra içine tabloyu yaratır.
Deneyiniz....
27/10/2009, 21:26

malidolu

Sayın Puletin çalışmanız ve bilgilendirmeniz süper.
Sanıyorum yanlış anlattım sorunumu.Örnekte bulunan create Table tuşuna basıldığında frmCreatetable formu açılıyor oradaki browse yi iptal edip sadece tablo ya verilecek ismi girmek yeni bir tablo oluşturmak istiyorum.bu mdb nin içine girilen isimlerde tablo oluşturmak yani.İşaallah anlatabildim.
27/10/2009, 21:35

alpeki99

Vallahi ben ne demek istediğinizi anlayamadım sevgili malidolu. Bende browse tuşu falan çıkmıyor nerede gördünüz anlayamadım.

Sevgili puletin'in eklediği dosyada:

* Yeni bir Access dosyası (mdb) oluşturma,
* Access dosyası içinde tablo oluşturma,
* Tabloda özelliklerini belirleyerek alan oluşturma.

Gerekli olabilecek herşey örneklendirilmiş. Lütfen daha açık ve anlaşılabilir bir şekilde sorunuzu yöneltin.
27/10/2009, 21:36

malidolu

Sayın Puletin çalışmanız ve bilgilendirmeniz süper.
Sanıyorum yanlış anlattım sorunumu.Örnekte bulunan create Table tuşuna basıldığında frmCreatetable formu açılıyor oradaki browse yi iptal edip sadece tablo ya verilecek ismi girmek yeni bir tablo oluşturmak istiyorum.bu mdb nin içine girilen isimlerde tablo oluşturmak yani.İşaallah anlatabildim.
Benim önceki mesajımda yolladığım örnekte.Teşekkürler picture2k.zip
27/10/2009, 22:30

alpeki99

Anladığım şey şu : "mevcut dosyada verdiğiniz isimle bir tablo oluşturmak istiyorsunuz." Eğer durum bu ise örnekteki dosyayı inceleyiniz.
1 2