22 lines
783 B
Plaintext
22 lines
783 B
Plaintext
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 |