AccessTr.neT

Tam Versiyon: Vb ile tablo açma
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
Sayfalar: 1 2
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.
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....
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.
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.
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
Anladığım şey şu : "mevcut dosyada verdiğiniz isimle bir tablo oluşturmak istiyorsunuz." Eğer durum bu ise örnekteki dosyayı inceleyiniz.
Sayfalar: 1 2