Konu Araçları | Konu Seçenekleri | Gösterim Stili
Tarih
20/12/2011 03:04
Konu Sahibi
vetaltan
Yorumlar
2
Okunma
1382
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy
Kullanici Avatari

vetaltan

Aktif Üye
Al.... Ak....
 56
 20
 100
 16/11/2009
10
 İstanbul
 
 Ofis 2000
 25/01/2019,17:39
Çözüldü 
Çalışılmakta olan veritabanından Vba kodu ile farklı yeni bir veritabanı oluşturabilir miyiz?


vetaltan 16-11-2009 tarihinden beri AccessTr.neT üyesidir.

Kullanici Avatari

alpeki99

Uzman
Ol....
 38
 162
 6.134
 29/10/2008
 Bursa
 Yazılım Geliştirici
 Ofis 2010 32 Bit
 01/02/2019,07:14
Çözüldü 
Bir butonun tıklanma olayında aşağıdaki kodu yazacak olursanız :

1- Sıfırdan bir dosya oluşturulur. Eğer oluşturulmak istenen dosya varsa uyarı alırsınız.
2- Dosya içinde bir tablo oluşturursunuz.
3- Dosyanızda yeni alanlar oluşturursunuz.

Visual Basic Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
Dim ADOXcatalog As New ADOX.Catalog
Dim ADOXtable As New Table
Dim ADOXindex As New ADOX.Index

On Error GoTo hata_yakala
ADOXcatalog.Create "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & CurrentProject.Path & "\AccessTRyeniDB.mdb"

On Error Resume Next

ADOXcatalog.ActiveConnection = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & CurrentProject.Path & "\AccessTRyeniDB.mdb"


ADOXtable.Name = "tbl_yeni_tablo"
ADOXtable.Columns.Append "musteri_id", adInteger
ADOXtable.Columns.Append "ad", adVarWChar, 40
ADOXtable.Columns.Append "soyad", adVarWChar, 20

ADOXcatalog.Tables.Append ADOXtable

hata_yakala:
    If Err.Number = -2147217897 Then
        MsgBox "Bu veritabanı zaten var", vbInformation + vbOKOnly, "Dosya zaten var"
    ElseIf Err.Number <> 0 Then
        MsgBox "Hata : " & Err.Description
    End If

    Set ADOXtable = Nothing
    Set ADOXindex = Nothing
    Set ADOXcatalog = Nothing


NOT : Bu kodların çalışması için Reference içinden "Microsoft ADO Ext. 2.x for DDL and Security" yüklenmiş olmalıdır.


AccessTr.Net teknik konular içeren bir sitedir. Bu tip sitelerde en iyi şekilde yardım alabilmeniz için Site Kurallarını mutlaka okumanız ve buna göre hareket etmeniz lazım.

Kullanici Avatari

vetaltan

Aktif Üye
Al.... Ak....
 56
 20
 100
 16/11/2009
10
 İstanbul
 
 Ofis 2000
 25/01/2019,17:39
Çözüldü 
Yanıtınız için teşekkürler.Sorunum yardımınızla çözüldü.Veritabanının dizinde olmaması durumu ve tabloyu sorgu ile yeni oluşturulan vt içersine eklemeyle birleştirerek yazılan kodun son halini aşağı ekledim.

Visual Basic Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
Dim DOSYA, DURUM, ad, yol, ara, MESAJ
Dim ADOXtable As New Table
Dim ADOXindex As New ADOX.Index
Dim ADOXcatalog As New ADOX.Catalog

ad = CurrentProject.Name
  yol = "c:\Vt\toplu\" & ad
    ara = Dir(yol)
   
   If (ara = "") Then
     MsgBox "Web Güncelle komutunu sadece  Programın " & Chr(13) & "Kurulu olduğu" _
     & "bilgisayarda kullanabilirsiniz", vbOKOnly + vbInformation, "Bilgilendirme"
          
   Else
DOSYA = CurrentProject.Path & "\web.mdb"
  DURUM = Dir(DOSYA)
        
   If (DURUM = "") Then
   MESAJ = MsgBox("Güncelleştirmek istediğiniz veritabanı silinmiş" _
   & Chr(13) & "Tekrar oluşturmak ister misiniz?", vbYesNo + vbQuestion, " Yardım")
   
   If MESAJ = vbYes Then
 ADOXcatalog.Create "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & CurrentProject.Path & "\web.mdb"
   DoCmd.SetWarnings False
    DoCmd.OpenQuery "webb"
     DoCmd.SetWarnings True
End If

   Else
  DoCmd.SetWarnings False
    DoCmd.OpenQuery "webb"
      DoCmd.SetWarnings True
 End If
 End If


vetaltan 16-11-2009 tarihinden beri AccessTr.neT üyesidir.


Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
Çözüldü Pdf Adını Veriye Göre Oluşturmak zetyu 9 323 03/03/2019, 23:01
Son Yorum: zetyu
Çözüldü Yeni Formda Açma access acemisi 4 171 02/03/2019, 10:23
Son Yorum: access acemisi
Çözüldü Aynı Kayıt Kontrol Kodu 2 Farklı Sonuç... Oğuz Türkyılmaz 3 185 08/02/2019, 16:27
Son Yorum: Oğuz Türkyılmaz
Çözüldü Access Penceresi Gizlenmiş Uygulamamda Yeni Eklenen Form, Sorunu Oğuz Türkyılmaz 10 307 31/01/2019, 10:15
Son Yorum: haliliyas
Çözüldü Kaydetme, Yeni Kayıt Ekleme Ve Kayıt Silme Sorunu mmert06 18 650 15/01/2019, 01:05
Son Yorum: mmert06

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2019 MyBB Group.