AccessTr.neT
Tablo Oluşturmadan Önce Eskisini Varsa Kontrol Etmek - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Tablo Oluşturmadan Önce Eskisini Varsa Kontrol Etmek (/konu-tablo-olusturmadan-once-eskisini-varsa-kontrol-etmek.html)

Sayfalar: 1 2


Tablo Oluşturmadan Önce Eskisini Varsa Kontrol Etmek - accessman - 01/02/2020

iyi günler 
create Sql komutu ile komutu ile tablo oluşturuyoruz ama diyelimki hali hazırdaki tablo bizim istediğimiz alanlara sahip değil veya yok
bunu sorgulayıp tablo oluşturabilir miyiz
mesela oluşturmak istediğimiz tablo ile aynı ada sahip fakat alakasız alanları olan bir tabloyu silip yeni tablo oluşturabilir miyiz
mantık olarak şöyle soracak 
bu isimli bir tablo var mı
varsa alanları nelerdir
uygunsa veri ekleme kısmına geç
uygun değilse yeni isimde mi oluşturulsun veya 
silinip yeni tablo oluşturulsun


Cvp: Tablo Oluşturmadan Önce Eskisini Varsa Kontrol Etmek - accessman - 01/02/2020

şöyle bir kod var buna alan kontrolu sorgulama nasıl eklenir


Kod:
Sub ViaVBA()
    Const strSQLCreateFoo_c As String = _
          "CREATE TABLE Foo" & _
          "(" & _
          "MyField1 INTEGER," & _
          "MyField2 Text(10)" & _
          ");"
    Const strSQLAppendBs_c As String = _
          "INSERT INTO Foo (MyField1, MyField2) " & _
          "SELECT Bar.MyField1, Bar.MyField2 " & _
          "FROM Bar " & _
          "WHERE Bar.MyField2 Like 'B*';"

    If Not TableExists("foo") Then
        CurrentDb.Execute strSQLCreateFoo_c
    End If
    CurrentDb.Execute strSQLAppendBs_c
End Sub

Private Function TableExists(ByVal name As String) As Boolean
    On Error Resume Next
    TableExists = LenB(CurrentDb.TableDefs(name).name)
End Function




Cvp: Tablo Oluşturmadan Önce Eskisini Varsa Kontrol Etmek - feraz - 01/02/2020

Ado schmea ile tablo adları bulunuyordu.
Belki orda Alan adlarıda yazıyordur incelemek gerek aklıma geldi.


Cvp: Tablo Oluşturmadan Önce Eskisini Varsa Kontrol Etmek - feraz - 01/02/2020

Alttaki gibi bir kod var ve Tablodaki alan adlarını bulyor.
Ona bir if koşulueklersen sarım  istediğin olur.


Dim sTable As String
    Dim rs As DAO.Recordset
    Dim n As Long
    Dim sResult As String


    Set rs = CurrentDb.OpenRecordset("Tablo1")

    With rs
        For n = 0 To .Fields.Count - 1
            sResult = sResult & .Fields(n).Name & vbCrLf
        Next 'n
        .Close
    End With

    Set rs = Nothing

MsgBox sResult



Cvp: Tablo Oluşturmadan Önce Eskisini Varsa Kontrol Etmek - feraz - 01/02/2020

Bir incele kodları.Referenceden Microsoft.scripting.runtime yi işaretle



Function alanAdlar() As Dictionary

    Dim rs As DAO.Recordset
    Dim n As Long
    Dim scr As New Scripting.Dictionary

    Set rs = CurrentDb.OpenRecordset("Tablo1")
    With rs
        For n = 0 To .Fields.Count - 1
            scr(.Fields(n).name) = scr(.Fields(n).name)
        Next 'n
        .Close
    End With

  Set alanAdlar = scr
  Set rs = Nothing

End Function


Sub test()

    Dim rs As DAO.Recordset
    Dim n As Long


    Const strSQLCreateFoo_c As String = _
          "CREATE TABLE Foo" & _
          "(" & _
          "MyField1 INTEGER," & _
          "MyField2 Text(10)" & _
          ");"

    Set rs = CurrentDb.OpenRecordset("Foo")

    If Not TableExists("foo") Then
        CurrentDb.Execute strSQLCreateFoo_c
    End If
   
    For n = 0 To CurrentDb.OpenRecordset("Foo").Fields.Count - 1
        For Each xx In alanAdlar.Keys
          If rs.Fields(n).name = xx Then
                MsgBox "Bulunan Tablo ad: " & rs.Fields(n).name
          End If
        Next
    Next
    rs.Close
    Set rs = Nothing
'    CurrentDb.Execute strSQLAppendBs_c
End Sub



Private Function TableExists(ByVal name As String) As Boolean
    On Error Resume Next
    TableExists = LenB(CurrentDb.TableDefs(name).name)
End Function



Cvp: Tablo Oluşturmadan Önce Eskisini Varsa Kontrol Etmek - accessman - 01/02/2020

scr(.Fields(n).name) = scr(.Fields(n).name)
bu satır doğru mu