SQL ve Veritabanı İşlemleri

RunSQLQuery

  • Dönüş Tipi: COM Object (Rowset)
  • Parametreler:
  • - sqlQuery (String): SQL sorgusu
  • - tableName (String): Tablo adı
  • Açıklama: SQL sorgusu çalıştırır ve sonuç döndürür

Örnek Kullanım:

Sub Makro1()
    Dim RS, SQL
    SQL = "SELECT KOD, AD FROM STOK00 WHERE AKTIF = 1"
    Set RS = Doc.RunSQLQuery(SQL, "STOK00")
    
    If Not RS Is Nothing Then
        RS.MoveFirst
        Do While Not RS.EOF
            Doc.MsgBox "Stok: " & RS("KOD") & " - " & RS("AD")
            RS.MoveNext
        Loop
        Set RS = Nothing
    End If
End Sub

RunSQLQuery_Par

  • Dönüş Tipi: COM Object (Rowset)
  • Parametreler:
  • - tableName (String): Tablo adı
  • - sqlQuery (String): SQL sorgusu
  • - parameters (COM Object): Parametreler nesnesi
  • Açıklama: Parametreli SQL sorgusu çalıştırır

Örnek Kullanım:

Sub Makro1()
    Dim Par1, RS, SQLCommand
    Set Par1 = Doc.CreateSObject("Parameters")
    Par1.SetParameter "PARAM1", "Değer1"
    
    SQLCommand = "SELECT * FROM STOK00 WHERE KOD = :PARAM1"
    Set RS = Doc.RunSQLQuery_Par("REPORT1", SQLCommand, Par1)
    
    If Not RS Is Nothing Then
        RS.MoveFirst
        Do While Not RS.EOF
            Doc.MsgBox "Stok: " & RS("KOD")
            RS.MoveNext
        Loop
        Set RS = Nothing
    End If
    Set Par1 = Nothing
End Sub

RunSQLCommand

  • Dönüş Tipi: Integer (Hata kodu)
  • Parametreler:
  • - sqlCommand (String): SQL komutu
  • Açıklama: SQL komutu çalıştırır (INSERT, UPDATE, DELETE)

Örnek Kullanım:

Sub Makro1()
    Dim Result, SQL
    SQL = "UPDATE STOK00 SET AKTIF = 0 WHERE KOD = 'STOK001'"
    Result = Doc.RunSQLCommand(SQL)
    
    If Result = 0 Then
        Doc.MsgBox "SQL komutu başarıyla çalıştırıldı"
    Else
        Doc.MsgBox "Hata: " & Result
    End If
End Sub

Run_Standard_SQL_Command

  • Dönüş Tipi: Integer (Hata kodu)
  • Parametreler:
  • - sqlCommand (String): SQL komutu
  • - parameters (COM Object): Parametreler nesnesi
  • Açıklama: Standart SQL komutu çalıştırır

Örnek Kullanım:

Sub Makro1()
    Dim Result, SQL, Par
    Set Par = Doc.CreateSObject("Parameters")
    Par.SetParameter "STOK_KODU", "STOK001"
    
    SQL = "UPDATE STOK00 SET AKTIF = 1 WHERE KOD = :STOK_KODU"
    Result = Doc.Run_Standard_SQL_Command(SQL, Par)
    
    If Result = 0 Then
        Doc.MsgBox "SQL komutu başarıyla çalıştırıldı"
    Else
        Doc.MsgBox "Hata: " & Result
    End If
    Set Par = Nothing
End Sub

RunSQLCommand_For_Upgrade

  • Dönüş Tipi: Integer (Hata kodu)
  • Parametreler:
  • - sqlCommand (String): SQL komutu
  • - parameters (COM Object): Parametreler nesnesi
  • Açıklama: Güncelleme için SQL komutu çalıştırır

Örnek Kullanım:

Sub Makro1()
    Dim Result, SQL, Par1
    Set Par1 = Doc.CreateSObject("Parameters")
    Par1.SetParameter "VERSION", "2.0"
    
    SQL = "UPDATE CONFIG SET VERSION = :VERSION"
    Result = Doc.RunSQLCommand_For_Upgrade(SQL, Par1)
    
    If Result = 0 Then
        Doc.MsgBox "Güncelleme başarılı"
    End If
    Set Par1 = Nothing
End Sub

ProcessSqlString1

  • Dönüş Tipi: Variant
  • Parametreler:
  • - sqlString (String): SQL string
  • Açıklama: SQL string'i işler

Örnek Kullanım:

Sub Makro1()
    Dim SQL, Sonuc
    SQL = "SELECT COUNT(*) FROM STOK00"
    Sonuc = Doc.ProcessSqlString1(SQL)
    Doc.MsgBox "Sonuç: " & Sonuc
End Sub

---