Skip to main content

AccessTr.neT


Tek Sütunlu Sorgu Oluşturma

Tek Sütunlu Sorgu Oluşturma

Çözüldü #1
Merhaba,
Access veri tabanında 10 alanı (sütun) bulunan bir tablo mevcut adı: [Table1]
Bir seçime göre bu tablodaki yalnızca bir sütunun (alan) tamamını alarak yeni bir tablo(sorgu) oluşturmak istiyorum. örnek:
seçime göre her zaman 1 sütun (alan) olacak şekilde güncellenecek.
Örnek: "3" girdiğim zaman 3. sırdaki alanı komple alacak, sonra "5" girdiğim zaman 5. sütundaki alanı komple alacak.


Teşekkürler,
iyi çalışmalar.
Cevapla
#2
Tablo mu oluşacak yoksa sorgu mu 2si bambaşka şeyler ?
Ayrıca tablo/sorgu ismi sabit mi olacak?
Tablo her defasında yeniden mi oluşturulup sonra silinecek mi?
Cevapla
#3
(21/10/2020 17:05)berduş Adlı Kullanıcıdan Alıntı: Tablo mu oluşacak yoksa sorgu mu 2si bambaşka şeyler ?
Ayrıca tablo/sorgu ismi sabit mi olacak?
Tablo her defasında yeniden  mi oluşturulup sonra silinecek mi?
Tablo oluşması benim için daha iyi; Bu tablonun adı ve yapısı sabit kalacak, sadece içeriği değişecek
iyi çalışmalar.
Cevapla
#4

Visual Basic Code
Dim rst As New ADODB.Recordset
Dim i, GSayi As Integer
Dim GAlan, GTabloAdi As String

rst.Open "SELECT * FROM Table1", CurrentProject.Connection, adOpenForwardOnly, adLockReadOnly

GTabloAdi = "YeniTablo"
GSayi = Me.Metin1 - 1

For i = GSayi To GSayi
    GAlan = rst.Fields(i).Name
Next i

DoCmd.RunSQL "SELECT " & GAlan & " INTO " & GTabloAdi & " FROM Table1;"


Referanslara Microsoft ActiveX Data Objects 2.8 Library referansını eklemelisin.

Formda Metin1'e 2 yazarsan YeniTablo isimli tablo oluşturup Table1'deki 2. sütunu yeni tabloya aktarır.

"Boş Örnek Eklerim, Yapıp Verirler" demeyin, örneğinizi hazırlayın.
Komplike kod talebiniz var ise İletişim bağlantısından bize ulaşın. 
Cebelleşmezsen Öğrenemezsin. 
Cevapla
#5
(21/10/2020 17:33)ozanakkaya Adlı Kullanıcıdan Alıntı:

Visual Basic Code
Dim rst As New ADODB.Recordset
Dim i, GSayi As Integer
Dim GAlan, GTabloAdi As String

rst.Open "SELECT * FROM Table1", CurrentProject.Connection, adOpenForwardOnly, adLockReadOnly

GTabloAdi = "YeniTablo"
GSayi = Me.Metin1 - 1

For i = GSayi To GSayi
    GAlan = rst.Fields(i).Name
Next i

DoCmd.RunSQL "SELECT " & GAlan & " INTO " & GTabloAdi & " FROM Table1;"


Referanslara Microsoft ActiveX Data Objects 2.8 Library referansını eklemelisin.

Formda Metin1'e 2 yazarsan YeniTablo isimli tablo oluşturup Table1'deki 2. sütunu yeni tabloya aktarır.


Çok teşekkürler,

burada yeni tabloya bir adet yerine iki alanı ekletmek istersek, yani 3. alan ile 5. alanı yan-yana eklesin dersek; nasıl bir düzenleme yapmamız gerekecek?

iyi Çalışmalar.
Cevapla
#6

Visual Basic Code
Dim rst As New ADODB.Recordset
Dim i, GSayi1, GSayi2 As Integer
Dim GAlan, GTabloAdi As String

rst.Open "SELECT * FROM Table1", CurrentProject.Connection, adOpenForwardOnly, adLockReadOnly

GTabloAdi = "YeniTablo"

GSayi1 = Val(Left([Metin1], InStr(1, [Metin1], "-") - 1)) - 1
GSayi2 = Val(Mid([Metin1], InStr(1, [Metin1], "-") + 1)) - 1



For i = GSayi1 To GSayi2
    GAlan = GAlan & "," & rst.Fields(i).Name
Next i

    GAlan = Right(GAlan, Len(GAlan) - 1)



DoCmd.RunSQL "SELECT " & GAlan & " INTO " & GTabloAdi & " FROM Table1;"


End Sub


Metin kutusuna 1-2 şeklinde tire koyarak yazmalısın.

"Boş Örnek Eklerim, Yapıp Verirler" demeyin, örneğinizi hazırlayın.
Komplike kod talebiniz var ise İletişim bağlantısından bize ulaşın. 
Cebelleşmezsen Öğrenemezsin. 
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da