VB 2010 + MySQL Eintrag

[Leange]

Hi

Ich hab grad nen kleines Projekt begonnen in VB2010

Der Nutzer soll die Möglichkeit haben "Beiträge" zu schreiben,
welche in ne MySQl datenbank kommen und wieder ausgegeben werden können.
Das Prog soll öffentlich gemacht werden aber die SQL DB dazu ist auf meinem server.

Jetzt ist mir grad eingefallen das es wohl ziemlich dumm ist
meine SQL Verbindungsdaten in das Prog einzutragen,
weil jeder Lump sie dann sniffen kann ... oder?

Habt ihr ne Idee wie ich das ganze realisieren kann,
ohne meinen Server zur potentiellen Zielscheibe zu machen? xD

Danke im Vorraus
MfG Leange

[The_Funeral]

Client/Server-Anwendung.

Die Client-Appl. schickt z.B. nur einen String an den Server, welcher dann den SQL-Command absetzt.
(Natürlich sollte die Server-Appl. entsprechend gegen SQL-Injection etc. abgesichert sein).

[Leange]

Ok danke
Dann werd ichs wohl ma hiermit (http://forum.vb-paradise.de/allgemeines/tipps-tricks-und-tutorials/datenbanken/28296-verbindung-zu-einer-mysql-datenbank-via-php-skript/) probieren
*eingestaubte php kenntnisse auffrisch* :p

Ich werd mich hier sicher nochmal melden müssen ^^


//EDIT:

So erstes Problem:


Fehler 1 Für den Parameter "?29?" von "Public Sub New(?29? As String)" wurde kein Argument angegeben. C:\Dokumente und Einstellungen\Leange\Eigene Dateien\Visual Studio 2010\Projects\MysqlPerPhp\MysqlPerPhp\Form1.vb 33 17 MysqlPerPhp

Fehler 2 "Create" ist kein Member von "HttpPostRequestLib.Net.HTTPPostRequest". C:\Dokumente und Einstellungen\Leange\Eigene Dateien\Visual Studio 2010\Projects\MysqlPerPhp\MysqlPerPhp\Form1.vb 34 38 MysqlPerPhp
Die Fehlermeldungen beziehen sich auf:


Public Class cls_Datenbankzugriff

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.blahhh.com/", 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 Classhttp://www.qtl.co.il/img/trans.pnghttp://www.qtl.co.il/img/trans.png

[blackberry]

The Http Post request program example in VB .NET for describing the POST operation used in the .NET web technology programming environment (http://www.winsocketdotnetworkprogramming.com/httpgetrequestdotnetworkprogramming10f.html)

Google hilft.