MySql und Vb

[Guiso90]

Hallo Epvp,
und zwar hatte ich vor bei der Login Form eine abfrage zu starten was in der Spalte Premium steht und wenn 1 oder 0 steht jeweils drauf zu reagieren
bei 1 mit
Form1.Button3.Visible = true
und bei 0 mit
Form1.Button3.Visible = false
nur bekomme ich die Abfrage nicht hin.... Weil ich eigentlich kaum Umgang bei VB mit MySql hatte

[Syc]

Wie sieht dein Ansatz aus?

[PC Jones]

NIEMALS direkt mit einem Programm zum MySQL Server verbinden!
Man kann das programm tierisch leicht dekompilieren und dann das Passwort auslesen(selbst bei confusern ist es noch möglich, und sei es durch das mitlesen des Netzwerkverkehrs) - deine Datenbank ist schneller gelöscht(und geklaut) als du gucken kannst.

Du musst den zwischenweg über PHP gehen, d.h. du hast auf deinem Server eine PHP Datei die die Abfrage macht und dann die 1 oder 0 ausgibt.
In dem Fall sind die MySQL-Daten dann nur auf dem Server gespeichert und keiner kommt da durch das Programm ran.

Lg

[Guiso90]

Das dumme ist ich kann kaum Php :P

[Syc]

Originally Posted by PC Jones

NIEMALS direkt mit einem Programm zum MySQL Server verbinden!
Man kann das programm tierisch leicht dekompilieren und dann das Passwort auslesen(selbst bei confusern ist es noch möglich, und sei es durch das mitlesen des Netzwerkverkehrs) - deine Datenbank ist schneller gelöscht(und geklaut) als du gucken kannst.

Du musst den zwischenweg über PHP gehen, d.h. du hast auf deinem Server eine PHP Datei die die Abfrage macht und dann die 1 oder 0 ausgibt.
In dem Fall sind die MySQL-Daten dann nur auf dem Server gespeichert und keiner kommt da durch das Programm ran.

Das Thema mit MySQL hatten wir hier schonmal:

Originally Posted by PC Jones

deine Datenbank ist schneller gelöscht(und geklaut)

Gott segne die Rechteverwaltung in MySQL!

@TE willst du nun Hilfe oder nicht?
Eine Verbindung über PHP oder z.b. TCP/IP wäre durchaus ratsam, aber zu lernzwecken ist es okay.
Wenn du Hilfe möchtest, dann stell doch bitte konkrete Fragen und und liefer deinen Ansatz..

[Guiso90]

 Spoiler

Dim myconnectionstring1 As String
        myconnectionstring1 = "server=*************; "
        conn1.ConnectionString = myconnectionstring1
        Try
            conn1.Open()
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try

 Dim str2 As String = "SELECT premium From tool WHere username='" & UsernameTextBox.Text & "' and password='" & PasswordTextBox.Text & "'"
            Dim da2 As New MySqlDataAdapter(str2, conn1)
            Dim ds2 As New DataSet
            If ds2.Tables(0).Rows.Count = 1 Then
                Form1.Button1.Visible = True
                Form1.Button4.Visible = True
                Form1.CheckedListBox1.Visible = True
                MessageBox.Show("Skype Tool Premium")
                Form1.Text = "Skype Tool Premium"
            End If

[Guiso90]

push

[Syc]

Was funktioniert denn am Code nicht? Schon anständig gedebuggt?

[Mostey]

Originally Posted by Sycophantic

Was funktioniert denn am Code nicht? Schon anständig gedebuggt?

Ich schätze mal, das hier ne Exception fliegt, weil die Abfrage einfach falsch formuliert ist. Und ohne ne Tabellenstruktur und genaue Problembeschreibung oder ähnliches kann man hier einfach nicht helfen.

[Guiso90]

Er meint er kann die Tabelle 0 nicht finden ê.e

[snow]

Dim da2 As New MySqlDataAdapter(str2, conn1)
Dim ds2 As New DataSet

Kein Wunder, da sind ja auch keine Daten mehr enthalten.

[Guiso90]

was meinst du?

[snow]

Hier willst du auf die Tabellen zugreifen:

If ds2.Tables(0).Rows.Count = 1 Then

ds2 ist so definiert:

Dim ds2 As New DataSet

- wie soll ds2 dort irgendwelche Daten aus deiner Datenbank enthalten?

Was du brauchst, ist das Objekt da2:

Dim da2 As New MySqlDataAdapter(str2, conn1)

und eine vernünftige Benennung deiner Variablen.