SQL_UPDATE_STATEMENT Nesnesi

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

Dim SQLUpdate
Set SQLUpdate = Doc.CreateSObject("SQL_UPDATE_STATEMENT")

Compose

  • Dönüş Tipi: Variant (String)
  • Parametreler: Yok
  • Açıklama: SQL UPDATE 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

Create_UPDATESET

  • Dönüş Tipi: COM Object (SQLE_UPDATESET)
  • Parametreler: Yok
  • Açıklama: Güncelleme seti 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 SQLUpdate, TableRef, UpdateSet, SearchCond
    Set SQLUpdate = Doc.CreateSObject("SQL_UPDATE_STATEMENT")
    Set TableRef = SQLUpdate.Create_TABLEREFERENCE
    Set UpdateSet = SQLUpdate.Create_UPDATESET
    Set SearchCond = SQLUpdate.Create_SEARCHCONDITION
    
    TableRef.TABLEREFERENCE_Add "STOK00", "S"
    UpdateSet.UPDATESET_Add "S", "AKTIF", "=", 1
    SearchCond.SEARCHCONDITION_SetValueCondition_Str "S", "KOD", "=", "STOK001"
    
    Dim SQL
    SQL = SQLUpdate.Compose
    Doc.MsgBox "SQL: " & SQL
    Set SQLUpdate = Nothing
End Sub

---