Imports System.Data.SQLite

Public Class frmSQLEditor
    Dim SQLconnect As New SQLite.SQLiteConnection()

    Public reportnr As Integer

    Private Sub frmSQLEditor_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load

    End Sub

    Private Sub TSBtnSave_Click(sender As System.Object, e As System.EventArgs) Handles TSBtnSave.Click
        SQLconnect.ConnectionString = Globals.Datenbank
        Dim sqlcmd As New SQLiteCommand
        sqlcmd.Connection = SQLconnect
        SQLconnect.Open()
        sqlcmd.CommandType = CommandType.Text
        sqlcmd.CommandText = "update report set sql_statement='" + Me.RichTextBox1.Text + "' where reportnr=" + Me.reportnr.ToString
        sqlcmd.ExecuteNonQuery()
        SQLconnect.Close()
    End Sub
End Class