Visual-Basic-Forum VB-Paradise.de

Visual Basic Quellcode

Private Sub cmdselect_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdselect.Click
        'Select ausführen
        'Verbindung definieren
        Dim Verbindung As cls_Datenbankzugriff
        Verbindung = New cls_Datenbankzugriff


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

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



        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
            MsgBox("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
        MsgBox(Rückgabewert)

    End Sub

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 Net.PostCollection, ByVal File As String, Optional ByVal Fehlerausgabe As Boolean = True)
        Try
            Dim myrequest As Net.HTTPPostRequest = New Net.HTTPPostRequest
            Dim Ergebnis As String = myrequest.Create(IO.Path.Combine("http://www.meinedomain.de/files", 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

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;
}
?>

PHP-Quelltext

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

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;
}
?>