SQL_DELETE_STATEMENT Nesnesi

SQL_DELETE_STATEMENT nesnesi SQL DELETE ifadesi oluşturma için kullanılır. Oluşturma:

Dim SQLDelete
Set SQLDelete = Doc.CreateSObject("SQL_DELETE_STATEMENT")

Compose

• Dönüş Tipi: Variant (String)
• Parametreler: Yok
• Açıklama: SQL DELETE ifadesini oluşturur

SetConnection

• Dönüş Tipi: Void
• Parametreler:
• - connectionString (String): Bağlantı string'i
• - options (String): Seçenekler
• Açıklama: Bağlantı ayarlar

Create_TABLEREFERENCE

• Dönüş Tipi: COM Object (SQLE_TABLEREFERENCE)
• Parametreler: Yok
• Açıklama: Tablo referansı nesnesi oluşturur

Create_SEARCHCONDITION

• Dönüş Tipi: COM Object (SQLE_SEARCHCONDITION)
• Parametreler: Yok
• Açıklama: Arama koşulu nesnesi oluşturur

TABLEREFERENCE_Add

• Dönüş Tipi: Void
• Parametreler:
• - tableName (String): Tablo adı
• - alias (String): Takma ad
• Açıklama: Tablo referansı ekler

SEARCHCONDITION_SetParametricCondition / SetValueCondition

• Dönüş Tipi: Void
• Parametreler:
• - fieldName (String): Alan adı
• - operator (String): Operatör
• - value (String/Double/Integer/Variant): Değer
• Açıklama: Arama koşulu ayarlar

Compose_Table_Name / Compose_Column_Name

• Dönüş Tipi: Variant (String)
• Parametreler:
• - schema (String): Şema
• - tableName (String): Tablo adı
• - fieldName (String): Alan adı (Column için)
• - alias (String): Takma ad
• Açıklama: Tablo/sütun adını oluşturur

Örnek Kullanım:

Sub Makro1()
    Dim SQLDelete, TableRef, SearchCond
    Set SQLDelete = Doc.CreateSObject("SQL_DELETE_STATEMENT")
    Set TableRef = SQLDelete.Create_TABLEREFERENCE
    Set SearchCond = SQLDelete.Create_SEARCHCONDITION
    
    TableRef.TABLEREFERENCE_Add "STOK00", "S"
    SearchCond.SEARCHCONDITION_SetValueCondition_Str "S", "KOD", "=", "STOK001"
    
    Dim SQL
    SQL = SQLDelete.Compose
    Doc.MsgBox "SQL: " & SQL
    Set SQLDelete = Nothing
End Sub

---