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

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