Hallo VB-P!
Ich habe mich die letzten Tage mal intensiver mit PHP & MySQL beschäftigt und hab mich nun mal an einem VB.net Formular versucht, dass 4 Variablen per POST an mein PHP Script weitergibt, was diese 4 Variablen wiederum in meine Datenbank einträgt.
Vor meiner Frage hier mal die ganzen Codes:
PHP Skript:
Mein VB-Code für den POST:
Nun zu meinem Problem: Wenn ich den Button drücke und alles durchgeführt wird, erhalte ich nach Abschluss meinen "Resultstring", den ich mir per MessageBox anzeigen lasse. Aber der Resultstring ist leer, ebenso wie die Tabelle in der DB... Was mache ich falsch? Ich suche schon seit heute morgen verzweifelt den Fehler und mir gehen langsam die Ideen und die Motivation aus..
Ein paar Denkanstöße wären nicht schlecht.
Danke!
LG IMW.eu
Ich habe mich die letzten Tage mal intensiver mit PHP & MySQL beschäftigt und hab mich nun mal an einem VB.net Formular versucht, dass 4 Variablen per POST an mein PHP Script weitergibt, was diese 4 Variablen wiederum in meine Datenbank einträgt.
Vor meiner Frage hier mal die ganzen Codes:
PHP Skript:
PHP-Quellcode
- <?php
- $verbindung = mysql_connect("host", "user", "pw")
- or die ("Fehler im System: ". mysql_error());
- mysql_select_db("datenbank")
- or die ("Verbidung zur Datenbank war nicht möglich...");
- $absender = $_POST['absender'];
- $empfaenger = $_POST['empfaenger'];
- $betreff = $_POST['betreff'];
- $message = $_POST['message'];
- mysql_query("INSERT INTO msg(ID, from, to, header, message) VALUES('', '$absender', '$empfaenger', '$betreff', '$message')");
- ?>
Mein VB-Code für den POST:
VB.NET-Quellcode
- Dim nv As New NameValueCollection
- Dim wc As New WebClient
- ...
- ' Button Klick Event
- If empfaenger_txt.Text = "" Or betreff_txt.Text = "" Or nachricht_txt.Text = "" Then
- MessageBox.Show("Ein Feld wurde nicht ausgefüllt!")
- Else
- Dim session As String = My.Settings.session
- nv.Clear()
- nv.Add("absender", session)
- nv.Add("empfaenger", empfaenger_txt.Text)
- nv.Add("betreff", betreff_txt.Text)
- nv.Add("message", nachricht_txt.Text)
- Dim result() As Byte = wc.UploadValues("http://lost-paradise.neocoding.org/test/sendmessageclient.php", "POST", nv)
- Dim resultstring As String = System.Text.Encoding.ASCII.GetString(result)
- MessageBox.Show(resultstring)
- Me.Close()
- gamemain.Show()
- End If
Nun zu meinem Problem: Wenn ich den Button drücke und alles durchgeführt wird, erhalte ich nach Abschluss meinen "Resultstring", den ich mir per MessageBox anzeigen lasse. Aber der Resultstring ist leer, ebenso wie die Tabelle in der DB... Was mache ich falsch? Ich suche schon seit heute morgen verzweifelt den Fehler und mir gehen langsam die Ideen und die Motivation aus..
Ein paar Denkanstöße wären nicht schlecht.
Danke!
LG IMW.eu