Hallo Community,
Ich habe mir von einem Freund ein Skript geben lassen mit dem ich mit VB.NET auf eine MySQL Datenbank ohne Externen zugriff zugreifen kann.
Hier das PHP Script:
und hier der Code der in C# geschrieben aber auf VB Übersetzt wurde den ich in VB Einfüge um zugriff auf die Datenbank mittels dem Skript bekomme:
Nun mein Problem:
Wie komme ich genau über das Skript auf die Datenbank ??
Ich habe schon vieles Versucht was SELECT * FROM und INSERT TO ... anbetrifft doch ich komme nicht weiter. Ein anderer Freund der ebenfallf VB Programmiert sagte ich solle:
für eine neue Verbindung nutzen und
Nutzen.
Doch das wurde mir nicht gesagt somit hab ichs gelassen.
Nun habe ich genug geschrieben hoffe ihr könnt mir helfen.
MFG
Patrick
Ich habe mir von einem Freund ein Skript geben lassen mit dem ich mit VB.NET auf eine MySQL Datenbank ohne Externen zugriff zugreifen kann.
Hier das PHP Script:
PHP-Quellcode
- <?php
- error_reporting(E_ALL);
- ini_set('display_errors', 1);
- $db = @new MySQLi('localhost', 'benutezrname', 'password', 'd00fd7ff');
- if (mysqli_connect_errno())
- {
- die('Es konnte keine Verbindung zur Datenbank hergestellt werden.<br />'.mysqli_connect_error());
- }
- if (isset($_POST['art'], $_POST['Title'], $_POST['Inhalt']) or isset($_POST['ID'], $_POST['art']))
- {
- if ($_POST['art'] == 'Edit')
- {
- $id = trim($_POST['ID']);
- $titel = utf8_decode(trim($_POST['Title']));
- $inhalt = utf8_decode(trim($_POST['Inhalt']));
- $sql = "UPDATE
- News
- SET
- Titel = ?,
- Inhalt = ?
- WHERE
- ID = ?";
- $stmt = $db->prepare($sql);
- if ($stmt)
- {
- $stmt->bind_param('sss', $title, $inhalt, $id);
- if ($stmt->execute()) echo utf8_encode('Änderungen erfolgreich übernommen.');
- else die('Fehler '.$stmt->error);
- }
- else
- {
- die('Fehler'.$db->error);
- }
- }
- elseif ($_POST['art'] == 'Add')
- {
- $titel = utf8_decode(trim($_POST['Title']));
- $inhalt = utf8_decode(trim($_POST['Inhalt']));
- $sql = "INSERT INTO
- News(Titel, Datum, Inhalt)
- VALUES
- (?, NOW(), ?)";
- $stmt = $db->prepare($sql);
- if (!$stmt)
- {
- die('Fehler '.$sql);
- }
- else
- {
- $stmt->bind_param('ss', $titel, $inhalt);
- if (!$stmt->execute())
- {
- die('Fehler '.$stmt->error);
- }
- else
- {
- echo utf8_encode('Der Eintrag wurde erfolgreich hinzugefügt.');
- }
- }
- }
- elseif ($_POST['art'] == 'Delete')
- {
- $id = trim($_POST['ID']);
- $sql = "DELETE FROM
- News
- WHERE
- ID = ?";
- $stmt = $db->prepare($sql);
- if ($stmt)
- {
- $stmt->bind_param('s', $id);
- if ($stmt->execute()) echo utf8_encode('Die News wurden erfolgreich gelöscht.');
- else die('Fehler '.$stmt->error);
- }
- else
- {
- die('Fehler '.$db->error);
- }
- }
- }
- else
- {
- $sql = "SELECT
- *
- FROM
- News
- ORDER BY
- Datum DESC";
- $result = $db->query($sql);
- if (!$result)
- {
- die('Kein Result für '.$sql);
- }
- else
- {
- while($row = $result->fetch_assoc())
- {
- $ret = $row['ID'].'|'.$row['Titel'].'|'.$row['Inhalt'].'~';
- echo $ret;
- }
- }
- }
- ?>
und hier der Code der in C# geschrieben aber auf VB Übersetzt wurde den ich in VB Einfüge um zugriff auf die Datenbank mittels dem Skript bekomme:
VB.NET-Quellcode
- Dim nv As New NameValueCollection()
- nv.Add("ID", _id)
- nv.Add("art", "Edit")
- nv.Add("Title", txtTitle.Text)
- nv.Add("Inhalt", rtxtInhalt.Text)
- Dim b_arr As Byte() = New WebClient().UploadValues("http://rv-zaisenhausen.de/php/news/inc/api.inc.php", "POST", nv)
- Dim encstring As String = Encoding.UTF8.GetString(b_arr)
- MessageBox.Show(encstring)
- Me.DialogResult = DialogResult.OK
Nun mein Problem:
Wie komme ich genau über das Skript auf die Datenbank ??
Ich habe schon vieles Versucht was SELECT * FROM und INSERT TO ... anbetrifft doch ich komme nicht weiter. Ein anderer Freund der ebenfallf VB Programmiert sagte ich solle:
für eine neue Verbindung nutzen und
Nutzen.
Doch das wurde mir nicht gesagt somit hab ichs gelassen.
Nun habe ich genug geschrieben hoffe ihr könnt mir helfen.
MFG
Patrick