edv/Doku
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

TSSittzungen

Browse Source
This commit is contained in:
ms
2019-10-25 11:48:37 +02:00
parent ce28d0bcce
commit 2197c92cba
35 changed files with 1397 additions and 133 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
Dokumentation/frmAllgemeinEintrag.vb
View File

@@ -93,7 +93,7 @@
'sda.Fill(ds)
'con.Close()
SQL.SQL2DS("SELECT * FROM TbL_Allgemein WHERE Rubrik='" & Eintrag.rubrik & "' AND Titel='" & Eintrag.Titel & "'", ds)
cSQL.SQL2DS("SELECT * FROM TbL_Allgemein WHERE Rubrik='" & Eintrag.rubrik & "' AND Titel='" & Eintrag.Titel & "'", ds)
Dim Info As String = ds.Tables(0).Rows(0).Item("Info")
@@ -112,7 +112,7 @@
Dim dslinked As New DataSet()
SQL.SQL2DS("SELECT * FROM Tbl_Allgemein WHERE LinkedWith='" & LinkedWith & "'", dslinked)
cSQL.SQL2DS("SELECT * FROM Tbl_Allgemein WHERE LinkedWith='" & LinkedWith & "'", dslinked)
path = Class1.FilePath & "\" & dslinked.Tables(0).Rows(0).Item("Rubrik") & "\" & dslinked.Tables(0).Rows(0).Item("Titel") '& "\" & dslinked.Tables(0).Rows(0).Item("Host")
@@ -153,7 +153,7 @@
ElseIf DialogResult.No Then
Exit Sub
End If
SQL.DeleteSQL("TbL_Allgemein", "ID = '" & Eintrag.ID & "'")
cSQL.DeleteSQL("TbL_Allgemein", "ID = '" & Eintrag.ID & "'")
' Main.LstStandortLoad()
Me.Close()
Else