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.