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

08/10/2020, 02:49

tarkanaykın

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
08/10/2020, 09:52

alicimri

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
08/10/2020, 10:23

alicimri

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
08/10/2020, 10:26

tarkanaykın

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