Visual-Basic-Forum VB-Paradise.de

Visual Basic Quellcode

Public Class cls_Datenbankzugriff

''' <summary>
''' Verbindet zu einer MySQL-Datenbank und gibt die angeforderten Daten zurück.
''' </summary>
''' <param name="vPostCollection">Erforderlich. Die Parameter welche an das PHP-Script geschickt werden.</param>
''' <param name="File">Erforderlich. Die Datei auf welcher der Befehl ausgeführt werden soll.</param>
''' <param name="Fehlerausgabe">Optional. Gibt an, ob die Fehlerausgabe Aktiviert ist.</param>
''' <returns>Gibt den Rückgabewert des PHP-Scripts zurück.</returns>
''' <remarks></remarks>
Public Function Zugriff(ByVal vPostCollection As PostCollection, ByVal File As String, Optional ByVal Fehlerausgabe As Boolean = True)
    Try
        Dim myrequest As New HTTPPostRequest
        Dim Ergebnis As String = myrequest.Create(IO.Path.Combine("http://www.DeineSeite.de/DeinProgramm", File), vPostCollection)

        Return Ergebnis
    Catch ex As Exception
        If Fehlerausgabe = True Then 'Wenn Fehlerausgabe aktiv, den Fehler Ausgeben
            MessageBox.Show("Folgender Fehler ist aufgetreten: " & vbNewLine & ex.Message, "Fehler!", MessageBoxButtons.OK, MessageBoxIcon.Error)
        End If
        Return "Verbindungsfehler"
    End Try
End Function
End Class

Visual Basic Quellcode

'Die Klasse cls_ExtentedList:
Public Class cls_ExtentedList

'Die einzelnen Daten-Spalten
Public ID As Integer
Public Name As String
Public Nachname As String
Public Anrede As String
Public Straße As String
Public Nr As Integer

''' <summary>
''' Gibt die angegebenen Daten zurück, um diese in die Liste einzufügen
''' </summary>
''' <returns></returns>
''' <remarks></remarks>
Public Overrides Function ToString() As String
    Return ID & " - " & Name & " - " & Nachname & " - " & Anrede & " - " & Straße & " - " & Nr
End Function

End Class

Visual Basic Quellcode

Public vListe As New List(Of cls_ExtentedList) 'Liste mit den Daten aus der Datenbank

Visual Basic Quellcode

'Select ausführen
'Verbindung definieren
Dim Verbindung As cls_Datenbankzugriff
Verbindung = New cls_Datenbankzugriff

Visual Basic Quellcode

    Dim myCollection As New PostCollection
'Parameter für das PHP-Script
myCollection.Add("SQLQuery", "select_all")

Visual Basic Quellcode

'Verbindung aufbauen und Daten holen/übergeben
Dim Rückgabewert As String = Verbindung.Zugriff(myCollection, "Abfrage.php", False)

PHP-Quelltext

<?php
header('content-type: text/html; charset=utf-8');
//Datenbankdaten angeben
mysql_connect("Host","Benutzer", "Passwort"); //Zugangsdaten angeben (Host, Benutzer, Passwort)
mysql_select_db("Datenbank"); // Datenbank angeben
?>

PHP-Quelltext

<?php
//Funktion zum Abfragen ob ein Fehler aufgetreten ist
function dbAbfrage($abfrage)
{
 $ergebnis = mysql_query($abfrage);
  
 if(!$ergebnis) //Ist ein Fehler aufgetreten?
 {
  echo mysql_error(); //Den Fehler ausgeben
 }
 
 return $ergebnis;
}
?>

PHP-Quelltext

<?php
//ini_set("display_errors", false);

include("Connection_inc.php");

include("Function_inc.php");

//SQL-Abfrage wählen
switch ($_POST['SQLQuery'])
{
case "select_all": //Alle Einträge holen
$abfrage = "SELECT * FROM Tabelle";
  
$ergebnis = dbAbfrage($abfrage);

if($ergebnis == FALSE) //Ist ein Fehler aufgetreten?
{
echo mysql_error(); //Den Fehler ausgeben
}
elseif (is_resource($ergebnis)) //SQL-Befehl ist SELECT...
{
if (mysql_num_rows($ergebnis) == 0)
{
echo "Keine passenden Einträge vorhanden."; //Wenn keine Zeile vorhanden, 0 zurückgeben
}
else
{
while($row = mysql_fetch_assoc($ergebnis)) //Jede Reihe durchlaufen
{
echo (implode("ΛΜΝ", $row)) . "ΡΣΤ"; //hier wird das Array $row implodiert mit , als seperator - ΡΣΤ wird zur Zeilentrennung, ΛΜΝ wird zur Spaltentrennung genutzt
}
}
}
break;

case "insert": //Einträge eintragen
$abfrage = "INSERT INTO Tabelle (name, nachname, anrede, strasse, nr)
 VALUES
 ('" . mysql_real_escape_string($_POST['name']) . "',
 '" . mysql_real_escape_string($_POST['nachname']) . "',
 '" . mysql_real_escape_string($_POST['anrede']) . "',
 '" . mysql_real_escape_string($_POST['strasse']) . "',
 '" . mysql_real_escape_string($_POST['nr']) . "')";

if (dbAbfrage($abfrage))
{
echo "Eintrag erfolgreich eingetragen.";
}
else
{
echo "Eintrag nicht eingetragen.";
}
break;
}
?>

Visual Basic Quellcode

If Rückgabewert = "Verbindungsfehler" Then 'Ist ein Verbindungsfehler aufgetreten
        'Nichts machen, da die Meldung schon vom Verbinden angezeigt wird
    ElseIf Rückgabewert = "Keine passenden Einträge vorhanden." Then 'Keine Einträge vorhanden
        MessageBox.Show("Keine passenden Einträge vorhanden.")
    Else
        'Zeilen und Spalten auflösen und in vListe einfügen
        Call Splitten(Rückgabewert, vListe, 0, 2, 3, 1, 4, 5)
        'Hier muss die Reihenfolge festgelegt werden,
        'in welcher die Spalten vom PHP-Script zurückgegeben werden.

        'In ListView einfügen
        For i As Integer = 0 To vListe.Count - 1
            lsvHaupt.Items.Add(New ListViewItem(New String() {vListe(i).ID, vListe(i).Name, vListe(i).Nachname, vListe(i).Anrede, vListe(i).Straße, vListe(i).Nr}))
        Next
    End If

Visual Basic Quellcode

''' <summary>
''' Teilt einzelne Spalten und Zeile auf und fügt diese einer Liste hinzu.
''' </summary>
''' <param name="Source">Der String der gesplittet werden soll.</param>
''' <param name="Liste">Die cls_ExtendetList in der die Spalten gespeichert werden sollen.</param>
''' <param name="Spalte_ID">Gibt den Index der Spalte ID an.</param>
''' <param name="Spalte_Name">Gibt den Index der Spalte Titel an.</param>
''' <param name="Spalte_Nachname">Gibt den Index der Spalte Beschreibung an.</param>
''' <param name="Spalte_Anrede">Gibt den Index der Spalte Code an.</param>
''' <param name="Spalte_Straße">Gibt den Index der Spalte Sprache an.</param>
''' <param name="Spalte_Nr">Gibt den Index der Spalte Anhang an.</param>
''' <remarks></remarks>
<STAThread()> _
Public Sub Splitten(ByVal Source As String, ByVal Liste As List(Of cls_ExtentedList), _
                    Optional ByVal Spalte_ID As Integer = -1, _
                    Optional ByVal Spalte_Name As Integer = -1, _
                    Optional ByVal Spalte_Nachname As Integer = -1, _
                    Optional ByVal Spalte_Anrede As Integer = -1, _
                    Optional ByVal Spalte_Straße As Integer = -1, _
                    Optional ByVal Spalte_Nr As Integer = -1)

    Liste.Clear()

    'Die Zeilen teilen
    Dim vZeile As String()
    vZeile = Split(Source, "ΡΣΤ")

    'Die Spalten teilen
    For i As Integer = 0 To vZeile.Count - 2
        Dim vSpalte As String()
        vSpalte = Split(vZeile(i), "ΛΜΝ")

        Dim Eintrag As cls_ExtentedList
        Eintrag = New cls_ExtentedList

        If Not Spalte_ID = -1 Then 'Wenn die Spalte ID zugewiesen wurde...
            Eintrag.ID = vSpalte(Spalte_ID)
        End If
        If Not Spalte_Name = -1 Then 'Wenn die Spalte Titel zugewiesen wurde...
            Eintrag.Name = (vSpalte(Spalte_Name))
        End If
        If Not Spalte_Nachname = -1 Then 'Wenn die Spalte Nachname zugewiesen wurde...
            Eintrag.Nachname = (vSpalte(Spalte_Nachname))
        End If
        If Not Spalte_Anrede = -1 Then 'Wenn die Spalte Anrede zugewiesen wurde...
            Eintrag.Anrede = (vSpalte(Spalte_Anrede))
        End If
        If Not Spalte_Straße = -1 Then 'Wenn die Spalte Straße zugewiesen wurde...
            Eintrag.Straße = vSpalte(Spalte_Straße)
        End If
        If Not Spalte_Nr = -1 Then 'Wenn die Spalte Nr zugewiesen wurde...
            Eintrag.Nr = vSpalte(Spalte_Nr)
        End If
        Liste.Add(Eintrag) 'Werte in Liste einfügen
    Next
End Sub

Visual Basic Quellcode

'Insert ausführen
'Verbindung definieren
Dim Verbindung As cls_Datenbankzugriff
Verbindung = New cls_Datenbankzugriff

Visual Basic Quellcode

'Aufruf der Klasse
Dim myCollection As Net.PostCollection = New Net.PostCollection
'Welcher Query soll den im Skript ausgeführt werden?
myCollection.Add("SQLQuery", "insert")
'Welche Daten sollen in der Dantebank eingefügt werden?
myCollection.Add("name", txt_Name.Text)
myCollection.Add("nachname", txt_Nachname.Text)
myCollection.Add("anrede", txt_Anrede.Text)
myCollection.Add("strasse", txt_Strasse.Text)
myCollection.Add("nr", txt_Nr.Text)

Visual Basic Quellcode

'Verbindung aufbauen und Daten holen/übergeben
Dim Rückgabewert As String = Verbindung.Zugriff(myCollection, "Abfrage.php", True)

Visual Basic Quellcode

'Update ausführen
'Verbindung definieren
Dim Verbindung As cls_Datenbankzugriff
Verbindung = New cls_Datenbankzugriff

'Aufruf der Klasse
Dim myCollection As Net.PostCollection = New  Net.PostCollection

'Welcher Query soll den im Skript ausgeführt werden?
myCollection.Add("SQLQuery", "update")
'Welche Daten sollen in der Datenbank bearbeitet werden?
myCollection.Add("name", txt_Name.Text)
myCollection.Add("nachname", txt_Nachname.Text)
myCollection.Add("anrede", txt_Anrede.Text)
myCollection.Add("strasse", txt_Strasse.Text)
myCollection.Add("nr", txt_Nr.Text)

'Verbindung aufbauen und Daten holen/übergeben
Dim Rückgabewert As String = Verbindung.Zugriff(myCollection, "Abfrage.php", True)

PHP-Quelltext

case "update": //Einträge bearbeiten
$abfrage = "UPDATE Tabelle SET name='" . mysql_real_escape_string($_POST['name']) . "',
nachname='" . mysql_real_escape_string($_POST['nachname']) . "',
anrede='" . mysql_real_escape_string($_POST['anrede']) . "',
strasse='" . mysql_real_escape_string($_POST['strasse']) . "',
nr='" . mysql_real_escape_string($_POST['nr']) . "',
WHERE id='irgendeine ID'";
  
if (!dbAbfrage($abfrage))
{
echo "Beim Update ist ein Fehler aufgetreten.";
}
else
{
echo "Update erfolgreich.";
}
break;

Visual Basic Quellcode

Dim Ergebnis As String = myrequest.Create(IO.Path.Combine("http://www.DeineSeite.de/OrdnerInDemDieDateiLiegt", File), vPostCollection)

Visual Basic Quellcode

Dim Rückgabewert As String = Verbindung.Zugriff(myCollection, "Abfrage.php", False)