Sql İfadesinde Alan Adı Ve Değerler Yerine Değişken Kullanma

Sql İfadesinde Alan Adı Ve Değerler Yerine Değişken Kullanma - 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ığı: Sql İfadesinde Alan Adı Ve Değerler Yerine Değişken Kullanma (/konu-sql-ifadesinde-alan-adi-ve-degerler-yerine-degisken-kullanma.html)

Sql İfadesinde Alan Adı Ve Değerler Yerine Değişken Kullanma - tarkanaykın - 08/10/2020

merhaba arkadaşlar, sınıf - nesne konularında bir şey keşfettim, orada kullanmak üzere; bir Sql şablonu oluşturmak; Sql İfadesinde Alan Adı Ve Değerler Yerine Değişken Kullanmak , böylece kod sayısını azaltmak istiyorum, ama hata iletisi alıyorum, bunun bir yolu olmalı, yardımcı olursanız çok sevinirim.

Private Sub Komut8_Click()

Dim x, y
x = "alanAdi"
y = "adi"

DoCmd.RunSQL "INSERT INTO tbl (x) VALUES (y)"
End Sub

RE: Sql İfadesinde Alan Adı Ve Değerler Yerine Değişken Kullanma - alicimri - 08/10/2020

Sql metnini aşağıdaki gibi düzenleyebilirsiniz.

Kod:

Sub gstr()

  alanAdi = "adit"

  veri = "veli"

  DoCmd.RunSQL ("INSERT INTO tbl (" & alanAdi & ") VALUES ('" & veri & "')")

 End Sub

RE: Sql İfadesinde Alan Adı Ve Değerler Yerine Değişken Kullanma - alicimri - 08/10/2020

Kod:

Function sqlmetin(veri As String) As String

 sqlmetin = "INSERT INTO tbl (adit) VALUES ('" & veri & "')"

 End Function

 Sub gstr()

  DoCmd.RunSQL (sqlmetin("ömer"))

 End Sub

RE: Sql İfadesinde Alan Adı Ve Değerler Yerine Değişken Kullanma - tarkanaykın - 08/10/2020

sayın alicimri çok teşekkür ederim çok mutlu oldum, sayenizde her gün yeni bir şeyler öğreniyoruz,kolay gelsin