Diverses SQL

Dokumentation/Main.vb

@@ -642,19 +642,7 @@ Public Class Main
     End Function
 
     Private Sub CmdTest_Click(sender As Object, e As EventArgs) Handles CmdTest.Click
-        Dim frm As New frmLeer
-        frm.Text = "Benutzerverwaltung"
-        Dim usrcntrl As New uscntr_DomUser
-
-        usrcntrl.Dock = DockStyle.Fill : frm.PanMain.Controls.Add(usrcntrl)
-        frm.Size = usrcntrl.Size
-        frm.Show()
-
-        AddHandler frm.FormClosing, Function()
-
-                                    End Function
-
-
+        CheckUpdate("DingDong")
     End Sub
     Private Sub CMdTest2_Click(sender As Object, e As EventArgs) Handles CMdTest2.Click
         Dim testuser As New cDomUser
@@ -1109,7 +1097,7 @@ Public Class Main
         LblVersion.Text = "Version: " & Version
         Try
             Dim ds As New DataSet
-            cSQL.SQL2DS("SELECT prog_aktuelleVersion FROM ADMIN.dbo.tblProgramme WHERE prog_codename= '" & My.Resources.Programmcode & "'", ds)
+            cSQL.SQL2DS("SELECT prog_aktuelleVersion FROM " & Class1.DBAdmin & ".dbo.tblProgramme WHERE prog_codename= '" & My.Resources.Programmcode & "'", ds)
             If ds.Tables(0).Rows.Count Then
                 RemoteVersion = ds.Tables(0).Rows(0).Item(0).ToString
             End If