Prozeduren, Mailsender, MSE-Automatik

This commit is contained in:
2024-10-18 09:50:30 +02:00
parent 3950f2f100
commit ad16598414
13 changed files with 1158 additions and 1870 deletions

View File

@@ -123,7 +123,7 @@ Public Class frmAPIZugaenge
If e.KeyCode = Keys.Enter Then
If txtSuche.Text <> "" Then
sqladdon &= " [username] Like '%" & txtSuche.Text & "%' or [type] like '%" & txtSuche.Text & "%'"
sqladdon &= " and [username] Like '%" & txtSuche.Text & "%' or [type] like '%" & txtSuche.Text & "%'"
End If
loadDGV(sqladdon)
End If
@@ -133,7 +133,7 @@ Public Class frmAPIZugaenge
Private Sub cbxProduktivsystem_CheckedChanged(sender As Object, e As EventArgs) Handles cbxProduktivsystem.CheckedChanged
Dim sqladdon As String = ""
If txtSuche.Text <> "" Then
sqladdon &= " [username] Like '%" & txtSuche.Text & "%' or [type] like '%" & txtSuche.Text & "%'"
sqladdon &= " and [username] Like '%" & txtSuche.Text & "%' or [type] like '%" & txtSuche.Text & "%'"
End If
loadDGV(sqladdon)
@@ -165,7 +165,7 @@ Public Class frmAPIZugaenge
Dim sqladdon As String = ""
If txtSuche.Text <> "" Then
sqladdon &= " [username] Like '%" & txtSuche.Text & "%' or [type] like '%" & txtSuche.Text & "%'"
sqladdon &= " and [username] Like '%" & txtSuche.Text & "%' or [type] like '%" & txtSuche.Text & "%'"
End If
loadDGV(sqladdon)
End Sub