NEU
This commit is contained in:
263
UID/Homepage/cDBHomepage.vb
Normal file
263
UID/Homepage/cDBHomepage.vb
Normal file
@@ -0,0 +1,263 @@
|
||||
Imports MySql.Data.MySqlClient
|
||||
|
||||
|
||||
Public Class cDBHomepage
|
||||
|
||||
|
||||
|
||||
Public Shared Function GetNewOpenConnection() As MySqlConnection
|
||||
Dim cn As New MySqlConnection()
|
||||
cn.ConnectionString = "Server=localhost;Database=verag_homepage;Uid=sec_user;Pwd=eKcGZr59zAa2BEWU;"
|
||||
cn.Open()
|
||||
Return cn
|
||||
End Function
|
||||
|
||||
Public Function qry_menu_tags(Optional laenderkuerzel As String = "de", Optional ref As String = "") As List(Of cNavigation)
|
||||
If laenderkuerzel = "" Then laenderkuerzel = "de"
|
||||
Dim navigation As New List(Of cNavigation)
|
||||
Using con As MySqlConnection = GetNewOpenConnection()
|
||||
Using cmd As New MySqlCommand
|
||||
cmd.Connection = con
|
||||
Dim sql As String = "SELECT * FROM menu_tags WHERE " ' ORDER BY `menu_tags`.`order` ASC"
|
||||
If ref <> "" Then
|
||||
sql &= " ref_id='" & ref & "' "
|
||||
Else
|
||||
sql &= " instance='0' "
|
||||
End If
|
||||
sql &= " ORDER BY `menu_tags`.`order` ASC "
|
||||
cmd.CommandText = sql
|
||||
Dim reader As MySqlDataReader = cmd.ExecuteReader
|
||||
Try
|
||||
'reader = cmd.ExecuteReader
|
||||
While reader.Read()
|
||||
Dim n As New cNavigation
|
||||
n.bezeichnung = reader.Item("desc_" & laenderkuerzel)
|
||||
n.id = reader.Item("id")
|
||||
n.slogan = reader.Item("menu_slogan_" & laenderkuerzel)
|
||||
n.menu_logo = reader.Item("menu_logo")
|
||||
n.subnavigation = qry_menu_tags(laenderkuerzel, n.id)
|
||||
navigation.Add(n)
|
||||
End While
|
||||
reader.Close()
|
||||
Catch ex As Exception
|
||||
MsgBox("Fehler 01: " & ex.Message)
|
||||
End Try
|
||||
con.Close()
|
||||
End Using
|
||||
End Using
|
||||
Return navigation
|
||||
End Function
|
||||
|
||||
|
||||
|
||||
|
||||
Public Function qry_contentNew(menuID As String, laenderkuerzel As String) As hp_content
|
||||
Try
|
||||
Dim hp_content As New hp_content
|
||||
Using con As MySqlConnection = GetNewOpenConnection()
|
||||
Using cmd As New MySqlCommand
|
||||
cmd.Connection = con
|
||||
Dim sql As String = " SELECT * " &
|
||||
" FROM menu_tags, homepage_content " &
|
||||
" WHERE menu_tags.id=homepage_content.hp_refId AND menu_tags.id = '" & menuID & "'"
|
||||
|
||||
cmd.CommandText = sql
|
||||
Dim reader As MySqlDataReader = cmd.ExecuteReader
|
||||
Try
|
||||
'reader = cmd.ExecuteReader
|
||||
While reader.Read()
|
||||
Dim b As New cBlock
|
||||
|
||||
hp_content.hp_id = reader.Item("id")
|
||||
hp_content.hp_content = reader.Item(getSpaltenBezeichnung(laenderkuerzel))
|
||||
hp_content.hp_slogan = reader.Item(getslogan(laenderkuerzel))
|
||||
hp_content.hp_title = reader.Item(getTitle(laenderkuerzel))
|
||||
hp_content.hp_imgPath = reader.Item("menu_logo")
|
||||
hp_content.hp_instance = reader.Item("instance")
|
||||
hp_content.hp_refIdToUpperMenue = reader.Item("ref_id")
|
||||
|
||||
Return hp_content
|
||||
End While
|
||||
reader.Close()
|
||||
Catch ex As Exception
|
||||
MsgBox("Fehler 02: " & ex.Message)
|
||||
End Try
|
||||
con.Close()
|
||||
End Using
|
||||
End Using
|
||||
Catch ex As Exception
|
||||
MsgBox(ex.Message)
|
||||
End Try
|
||||
Return Nothing
|
||||
End Function
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
Function getSpaltenBezeichnung(laenderkuerzel As String) As String
|
||||
Dim spalte = "hp_de"
|
||||
Select Case laenderkuerzel
|
||||
Case "de" : spalte = "hp_de"
|
||||
Case "bg" : spalte = "hp_bg"
|
||||
Case "yu" : spalte = "hp_yu"
|
||||
Case "ro" : spalte = "hp_ro"
|
||||
Case "tr" : spalte = "hp_tr"
|
||||
Case "en" : spalte = "hp_en"
|
||||
End Select
|
||||
Return spalte
|
||||
End Function
|
||||
|
||||
Function getSlogan(laenderkuerzel As String) As String
|
||||
Dim spalte = "hp_de"
|
||||
Select Case laenderkuerzel
|
||||
Case "de" : spalte = "menu_slogan_de"
|
||||
Case "bg" : spalte = "menu_slogan_bg"
|
||||
Case "yu" : spalte = "menu_slogan_yu"
|
||||
Case "ro" : spalte = "menu_slogan_ro"
|
||||
Case "tr" : spalte = "menu_slogan_tr"
|
||||
Case "en" : spalte = "menu_slogan_en"
|
||||
End Select
|
||||
Return spalte
|
||||
End Function
|
||||
|
||||
Function getTitle(laenderkuerzel As String) As String
|
||||
Dim spalte = "hp_de"
|
||||
Select Case laenderkuerzel
|
||||
Case "de" : spalte = "desc_de"
|
||||
Case "bg" : spalte = "desc_bg"
|
||||
Case "yu" : spalte = "desc_yu"
|
||||
Case "ro" : spalte = "desc_ro"
|
||||
Case "tr" : spalte = "desc_tr"
|
||||
Case "en" : spalte = "desc_en"
|
||||
End Select
|
||||
Return spalte
|
||||
End Function
|
||||
|
||||
|
||||
Public Sub update_HPContentNew(hp_content As hp_content, laenderkuerzel As String)
|
||||
Dim sql As String = " UPDATE homepage_content " &
|
||||
"SET " & getSpaltenBezeichnung(laenderkuerzel) & "=@hp WHERE hp_refId=@hp_refId "
|
||||
|
||||
Using conn As MySqlConnection = GetNewOpenConnection()
|
||||
Using cmd As New MySqlCommand(sql, conn)
|
||||
cmd.Parameters.AddWithValue("@hp", hp_content.hp_content)
|
||||
cmd.Parameters.AddWithValue("@hp_refId", hp_content.hp_id)
|
||||
Try
|
||||
cmd.ExecuteNonQuery()
|
||||
|
||||
Catch ex As MySqlException
|
||||
MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": Datensatz kann nicht gespeichert werden!" & vbCrLf & vbCrLf & ex.Message, vbExclamation, "Fehler beim Speichern Programm")
|
||||
End Try
|
||||
End Using
|
||||
conn.Close()
|
||||
End Using
|
||||
|
||||
|
||||
Dim sql2 As String = " UPDATE menu_tags " &
|
||||
"SET " & getSlogan(laenderkuerzel) & "=@slogan, " & getTitle(laenderkuerzel) & "=@title, menu_logo=@img WHERE id=@id "
|
||||
|
||||
Using conn As MySqlConnection = GetNewOpenConnection()
|
||||
Using cmd As New MySqlCommand(sql2, conn)
|
||||
cmd.Parameters.AddWithValue("@slogan", hp_content.hp_slogan)
|
||||
cmd.Parameters.AddWithValue("@title", hp_content.hp_title)
|
||||
cmd.Parameters.AddWithValue("@img", hp_content.hp_imgPath)
|
||||
cmd.Parameters.AddWithValue("@id", hp_content.hp_id)
|
||||
Try
|
||||
cmd.ExecuteNonQuery()
|
||||
|
||||
Catch ex As MySqlException
|
||||
MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": Datensatz kann nicht gespeichert werden!" & vbCrLf & vbCrLf & ex.Message, vbExclamation, "Fehler beim Speichern Programm")
|
||||
End Try
|
||||
End Using
|
||||
conn.Close()
|
||||
End Using
|
||||
End Sub
|
||||
|
||||
Public Function getInstance(id As String) As Integer
|
||||
Dim instance As Integer = -1
|
||||
Try
|
||||
Dim hp_content As New hp_content
|
||||
Using con As MySqlConnection = GetNewOpenConnection()
|
||||
Using cmd As New MySqlCommand
|
||||
cmd.Connection = con
|
||||
Dim sql As String = " SELECT instance FROM menu_tags WHERE id='" & id & "' "
|
||||
|
||||
cmd.CommandText = sql
|
||||
Dim reader As MySqlDataReader = cmd.ExecuteReader
|
||||
Try
|
||||
'reader = cmd.ExecuteReader
|
||||
If reader.HasRows Then
|
||||
reader.Read()
|
||||
instance = CInt(reader.Item("instance")) + 1
|
||||
End If
|
||||
reader.Close()
|
||||
Catch ex As Exception
|
||||
MsgBox("Fehler 03: " & ex.Message)
|
||||
End Try
|
||||
con.Close()
|
||||
End Using
|
||||
End Using
|
||||
Catch ex As Exception
|
||||
MsgBox(ex.Message)
|
||||
End Try
|
||||
Return instance
|
||||
End Function
|
||||
|
||||
|
||||
|
||||
Public Function insert_HPContentNew(hp_content As hp_content, laenderkuerzel As String, title As String, refId As String, instance As String) As Integer
|
||||
Dim newID As Integer = -1
|
||||
Dim sql As String = " INSERT INTO menu_tags ( " & getTitle(laenderkuerzel) & " , ref_id, instance) VALUES( @title,@refId,'" & (instance + 1) & "' ); SELECT LAST_INSERT_ID()" 'ON DUPLICATE KEY UPDATE hp_de = VALUES(@hp_de)"
|
||||
'dedet_abt
|
||||
Using conn As MySqlConnection = GetNewOpenConnection()
|
||||
Using cmd As New MySqlCommand(sql, conn)
|
||||
cmd.Parameters.AddWithValue("@title", title)
|
||||
cmd.Parameters.AddWithValue("@refId", refId)
|
||||
Try
|
||||
' cmd.ExecuteNonQuery()
|
||||
newID = CInt(cmd.ExecuteScalar())
|
||||
Catch ex As MySqlException
|
||||
MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": Datensatz kann nicht gespeichert werden!" & vbCrLf & vbCrLf & ex.Message, vbExclamation, "Fehler beim Speichern Programm")
|
||||
End Try
|
||||
End Using
|
||||
conn.Close()
|
||||
End Using
|
||||
|
||||
|
||||
Dim sql2 As String = " INSERT INTO homepage_content (hp_refId) VALUES( @hp_refId) " 'ON DUPLICATE KEY UPDATE hp_de = VALUES(@hp_de)"
|
||||
|
||||
Using conn As MySqlConnection = GetNewOpenConnection()
|
||||
Using cmd As New MySqlCommand(sql2, conn)
|
||||
cmd.Parameters.AddWithValue("@hp_refId", newID)
|
||||
Try
|
||||
cmd.ExecuteNonQuery()
|
||||
|
||||
Catch ex As MySqlException
|
||||
MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": Datensatz kann nicht gespeichert werden!" & vbCrLf & vbCrLf & ex.Message, vbExclamation, "Fehler beim Speichern Programm")
|
||||
End Try
|
||||
End Using
|
||||
conn.Close()
|
||||
End Using
|
||||
Return newID
|
||||
End Function
|
||||
|
||||
Public Sub deleteHpMenueAndContent(id)
|
||||
Dim sql As String = " DELETE FROM menu_tags WHERE id=@id; DELETE FROM homepage_content WHERE hp_refId=@id " 'ON DUPLICATE KEY UPDATE hp_de = VALUES(@hp_de)"
|
||||
'dedet_abt
|
||||
Using conn As MySqlConnection = GetNewOpenConnection()
|
||||
Using cmd As New MySqlCommand(sql, conn)
|
||||
cmd.Parameters.AddWithValue("@id", id)
|
||||
|
||||
Try
|
||||
cmd.ExecuteNonQuery()
|
||||
|
||||
Catch ex As MySqlException
|
||||
MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": Datensatz kann nicht gelöscht werden!" & vbCrLf & vbCrLf & ex.Message, vbExclamation, "Fehler beim Speichern Programm")
|
||||
End Try
|
||||
End Using
|
||||
End Using
|
||||
End Sub
|
||||
|
||||
End Class
|
||||
Reference in New Issue
Block a user