Veritabanı Sorgularında Parametre Kullanma isimli içerikte, ilgili işlemin VBA kodları ile nasıl yapacağınızı öğreten bir Hazır Makro Kodu yer almaktadır.
Faydalanılması temennisiyle
Hazır Kod
VBA:
Sub ParameterizedQuery()
Dim conn As ADODB.Connection
Dim cmd As ADODB.Command
Dim param As ADODB.Parameter
Dim rs As ADODB.Recordset
Dim userValue As String
' Kullanıcıdan alınan değer (örnek)
userValue = "aranacak_değer"
' Veritabanı bağlantısını ayarla
Set conn = New ADODB.Connection
conn.ConnectionString = "your_connection_string_here"
conn.Open
' SQL komutunu ve parametreleri ayarla
Set cmd = New ADODB.Command
With cmd
.ActiveConnection = conn
.CommandText = "SELECT * FROM TabloAdı WHERE SütunAdı = ?"
.CommandType = adCmdText
' Parametre oluştur ve ekle
Set param = .CreateParameter("param1", adVarChar, adParamInput, 50, userValue)
.Parameters.Append param
End With
' Parametreli sorguyu çalıştır ve sonuçları al
Set rs = cmd.Execute
' Sonuçları işle
While Not rs.EOF
' Sonuçları burada işle
rs.MoveNext
Wend
' Kaynakları serbest bırak
rs.Close
conn.Close
End SubAçıklama
Bu kod, your_connection_string_here kısmını kendi veritabanı bağlantı bilgilerinizle değiştirmenizi gerektirir. TabloAdı ve SütunAdı yer tutucularını da ilgili tablo ve sütun adları ile değiştirmelisiniz. Bu örnek, güvenlik açısından tercih edilen parametreli sorgulama yöntemini gösterir ve SQL enjeksiyonu gibi güvenlik sorunlarını önlemeye yardımcı olur.Faydalanılması temennisiyle