Skip to main content

AccessTr.neT


Ado Sql Create İle Autoıncrement Prımary Key Kullanılması

Ado Sql Create İle Autoıncrement Prımary Key Kullanılması

Çözüldü #1
şu kod ile bir tablodan başka bir tablo oluşturuyorum ama otomatik sayıda eklemek istiyorum 
Autoıncrement Prımary Key
bunu nasıl ekleyeceğim


Sub sqql(v As String)
    Dim Sql As String
    Dim dbs As Database
    Set dbs = OpenDatabase("C:\Users\doktor2\Desktop\pmf\_udemy\egitim.accdb")
   
    Sql = "SELECT liste_tam.FABRİKA as fabrika, liste_tam.DEPARTMAN as departman, liste_tam.[GÖREV TANIMI (AS400)] as gorevas," _
    & " liste_tam.[GÖREV TANIMI (İSO)] as goreviso, liste_tam.SİC as sicil, liste_tam.V as vardiya4," _
    & " liste_tam.ADI as isim, liste_tam.SOYADI as soyisim, liste_tam.[İŞE GİRİŞ T] as isgirtar" _
    & " INTO liste6" _
    & " FROM liste_tam" _
    & " WHERE (liste_tam.SİC) Is Not Null AND (liste_tam.V) Like '*" & v & "*'" _
    & " ORDER BY liste_tam.FABRİKA, liste_tam.DEPARTMAN, liste_tam.[GÖREV TANIMI (AS400)], liste_tam.[GÖREV TANIMI (İSO)];"

    dbs.Execute sql
    dbs.Close

End Sub
@benbendedeilem
Cevapla
#2
DoCmd.RunSQL "ALTER TABLE liste6 ADD Column sno COUNTER"
DoCmd.RunSQL "ALTER TABLE liste6 ADD PRIMARY KEY (sno)"

kodları ile sno adında otomatik sayı eklenir. Üstteki otomatik sayı ekler, alttaki birincil anahtar ekler. Bu kodları, end sub'un üstüne yazarak deneyiniz.
Cevapla
#3
teşekkürler admin peki bunu tek Sql cümlesinde belirtmek mümkün mü yani benim yazdığım Sql cümlesi içine eklenebiliyor mu
Cevapla
#4
Tek Sql cümlesi ile birincil anahtar ve otomatik sayı oluşturamazsın. sizin yazdığınız Sql kodu içerisinde ekleyemezsin.
Cevapla
#5
teşekkürler 
normal alan eklemek için yine bu mu kullanılacak

DoCmd.RunSQL "ALTER TABLE liste6 ADD Column okul_adi  TEXT(20)"

yoksa ilk Sql e eklenebilir mi 
Cevapla
#6
DoCmd.RunSQL "ALTER TABLE liste6 ADD Column sno COUNTER, okul_adi TEXT(20)"
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da
Task