AccessTr.neT

Bul · 27/10/2009, 01:11

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.

Bul · 27/10/2009, 12:23

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....

Bul · 27/10/2009, 21:26

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.

Bul · 27/10/2009, 21:35

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.

Bul · 27/10/2009, 21:36

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

Bul · 27/10/2009, 22:30

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

AccessTr.neT

Vb ile tablo açma

Vb ile tablo açma

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Giriş yap

Hesap oluştur

Konu Linkleri