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

Diverses SQL

Browse Source
This commit is contained in:
ms
2020-06-24 09:26:12 +02:00
parent 4360074d97
commit cacc473821
5 changed files with 10 additions and 21 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
Dokumentation/Classes/Class1.vb
View File

@@ -8,8 +8,9 @@ Public Class Class1
'Public Shared DBConString As String = "Server=NBMIESENBECK\SPIELWIESE;Initial Catalog=Doku;User ID=sa;Password=verag#3;Connection Timeout=5;"
Public Shared DBConString As String
Public Shared DBConstringDev As String = "Server=DEVELOPER.verag.ost.dmn\DEVSQL;Initial Catalog=Doku;User ID=sa;Password=BmWr501956;Connection Timeout=5;"
Public Shared DBADMINBuchhaltung As String = "Data Source=BUCHHALTUNG.verag.ost.dmn\SQLEXPRESS;Initial Catalog=ADMIN;Integrated Security=false;User ID=sa;Password=BmWr501956;"
Public Shared DBDoku As String = "Server=SQLCluster.verag.ost.dmn\Verag;Initial Catalog=Doku;User ID=sa;Password=BmWr501956;Connection Timeout=5;"
Public Shared DBADMINBuchhaltung As String = "Data Source=SQLGuide01.verag.ost.dmn;Initial Catalog=ADMIN;Integrated Security=false;User ID=sa;Password=BmWr501956;"
Public Shared DBAdmin As String = "[SQLGuide01.verag.ost.dmn].ADMIN"
Public Shared DBDoku As String = "Server=SQLGuide01.verag.ost.dmn\Verag;Initial Catalog=Doku;User ID=sa;Password=BmWr501956;Connection Timeout=5;"
'Public Shared DBDoku As String = "Server=dokusql.verag.ost.dmn\sqlexpress;Initial Catalog=Doku;User ID=sa;Password=BmWr501956;Connection Timeout=5;"
Public Shared DBDokuTest As String = "Server=DEVELOPER.verag.ost.dmn\DEVSQL;Initial Catalog=Doku;User ID=sa;Password=BmWr501956;Connection Timeout=5;"
'Public Shared FilePath As String = "\\192.168.0.253\backup\temp_Sebastian\Spielwiese\Doku"
@@ -31,7 +32,7 @@ Public Class Class1
Public Shared TerminalServerList As New List(Of String)
Public Shared Sub EnableDoubleBuffered(ByVal dgv As DataGridView)
Public Shared Sub EnableDoubleBuffered(ByRef dgv As DataGridView)
Dim dgvType As Type = dgv.[GetType]()
Dim pi As PropertyInfo = dgvType.GetProperty("DoubleBuffered",
BindingFlags.Instance Or BindingFlags.NonPublic)

4
Dokumentation/Classes/cDomUser.vb
View File

@@ -49,7 +49,7 @@ Public Class cDomUser
Public Function getDomUser(Filterspalte As String, Filterbegriff As String)
Dim ds As New DataSet
cSQL.SQL2DS("select " & SelectItems & " from [Buchhaltung\sqlexpress].doku.dbo.tbl_domuser as Doku left join [Buchhaltung\sqlexpress].ADMIN.dbo.tblMitarbeiter on mit_AliasAD_Username = du_sAMAc where " & Filterspalte & "= '" & Filterbegriff & "'", ds)
cSQL.SQL2DS("select " & SelectItems & " from [SQLGuide01.verag.ost.dmn].doku.dbo.tbl_domuser as Doku left join [SQLGuide01.verag.ost.dmn].ADMIN.dbo.tblMitarbeiter on mit_AliasAD_Username = du_sAMAc where " & Filterspalte & "= '" & Filterbegriff & "'", ds)
If ds.Tables(0).Rows.Count > 0 Then Exist = True
@@ -67,7 +67,7 @@ Public Class cDomUser
Public Function getDomUserByID(ID As String)
Dim ds As New DataSet
cSQL.SQL2DS("select " & SelectItems & " from [Buchhaltung\sqlexpress].doku.dbo.tbl_domuser as Doku left join [Buchhaltung\sqlexpress].ADMIN.dbo.tblMitarbeiter on mit_AliasAD_Username = du_sAMAc WHERE du_ID = '" & ID & "'", ds)
cSQL.SQL2DS("select " & SelectItems & " from [SQLGuide01.verag.ost.dmn].doku.dbo.tbl_domuser as Doku left join [SQLGuide01.verag.ost.dmn].ADMIN.dbo.tblMitarbeiter on mit_AliasAD_Username = du_sAMAc WHERE du_ID = '" & ID & "'", ds)
If ds.Tables(0).Rows.Count > 0 Then Exist = True

16
Dokumentation/Main.vb
View File

@@ -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

2
Dokumentation/My Project/Resources.Designer.vb generated
View File

@@ -269,7 +269,7 @@ Namespace My.Resources
End Property
'''<summary>
''' Sucht eine lokalisierte Zeichenfolge, die 0.0.1.57 ähnelt.
''' Sucht eine lokalisierte Zeichenfolge, die 0.0.1.60 ähnelt.
'''</summary>
Friend ReadOnly Property Version() As String
Get

2
Dokumentation/My Project/Resources.resx
View File

@@ -134,7 +134,7 @@
<value>..\Resources\Bearbeiten20.bmp;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="Version" xml:space="preserve">
<value>0.0.1.57</value>
<value>0.0.1.60</value>
</data>
<data name="Link" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Link.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>