Hi Com
Ich habe ein Problem mit meinem Source !
Ich stelle ihn hier bereit damit ihr ihn mal anschauen könnt !
Spoiler anzeigen
img139.imageshack.us/gal.php?g=97968246.png
Unter diesem Link sind 4 BIlder schaut sie euch an ...
Das 3. ist der Fehler und das 4. ist halt die DB (vll bringt sie euch weiter)
Hoffe auf Hilfe
Edit: Wenn ihr euch das anschauen wollt schreibt mich an ihr könnt auch auf tv !
Mfg
Edit by der_Kurt:
Bitte einen aussagekräftigen Titel verwenden
€: Ich wusste nicht wie ich ihn nennen soll :D
Edit 2: Rot ist nur für die Administratoren. Du solltest dir nochmals die Boardregeln durchlesen. Sämtliche deiner Threadtitel lassen NICHT auf den Inhalt des Threads schließen.
Ich habe ein Problem mit meinem Source !
Ich stelle ihn hier bereit damit ihr ihn mal anschauen könnt !
VB.NET-Quellcode
- Imports MySql.Data.MySqlClient
- Public Class regi
- Dim Klasse As String = "Noch nicht gewählt!"
- Dim Geschlecht As String = "Noch nicht gewählt!"
- Dim Benutzername As String = "."
- Dim Email As String = "."
- Dim Alter As String = "."
- Dim emailad As String = ""
- Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
- Dim conn As MySqlConnection
- conn = New MySqlConnection
- conn.ConnectionString = "server=SERVER;" & "user id=USER;" & "password=PW;" & "database=DB"
- Try
- conn.Open() ' Verbindung öffnen
- Catch myerror As MySqlException
- MsgBox("Keine Verbindung zur Datenbank : " & myerror.Message.ToString)
- End Try
- Dim myAdapter As New MySqlDataAdapter
- Dim SQLAbfrage As String = "SELECT * FROM benutzer WHERE Benutzername='" + txt_benutzer.Text + "'" ' Erstmal eine SQL Abfrage die überprüft ob es den Benutzernamen schon gibt
- Dim myCommand As New MySqlCommand
- myCommand.Connection = conn
- myCommand.CommandText = SQLAbfrage
- myAdapter.SelectCommand = myCommand
- Dim myData As MySqlDataReader
- myData = myCommand.ExecuteReader() ' Abfrage starten
- If myData.HasRows = 0 Then ' Wenn dieser Benutzername nicht existiert dann fang mit der Registrierung an
- conn.Close()
- conn.Open()
- Dim registerfinal As New MySqlDataAdapter
- Dim benutzer As String = (txt_benutzer.Text)
- Dim passwort As String = MD5StringHash(txt_passwort.Text)
- myCommand.CommandText = "INSERT INTO benutzer(Name, Passwort, EmailAd, Klasse, Geschlecht, Alter)" _
- & "VALUES('" & benutzer & "','" & passwort & "','" & emailad & "','" & Klasse & "','" & Geschlecht & "','" & Alter & "')"
- myCommand.ExecuteNonQuery() ' SQL Abfrage starten und eintragen
- MsgBox("Der Account mit dem Namen : " & txt_benutzer.Text & " wurde erfolgreich erstellt")
- conn.Close()
- End If
- End Sub
- Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
- For y = Screen.PrimaryScreen.WorkingArea.Height - Me.Height To Screen.PrimaryScreen.WorkingArea.Width
- Me.Location = New Point(Screen.PrimaryScreen.WorkingArea.Width - Me.Width, y)
- Threading.Thread.Sleep(3)
- Next
- Me.Close()
- End Sub
- Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged
- If RadioButton1.Checked = False Then
- RadioButton2.Checked = True
- ElseIf RadioButton2.Checked = False Then
- RadioButton1.Checked = True
- End If
- End Sub
- Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
- If txt_benutzer.Text = "" Then
- MsgBox("Tut uns Leid !" & " Aber du musst einen Namen Wählen!")
- Else
- If TextBox4.Text = "" Then
- MsgBox("Gib dein Alter an !")
- Else
- If txt_email.Text = "" Then
- MsgBox("Gib eine Gültige Email Adresse ein !")
- Else
- If txt_passwort.Text = "" Or TextBox2.Text = "" Then
- MsgBox("Gib bitte in beide Felder dein Passwort ein!")
- Else
- If txt_passwort.Text = TextBox2.Text = False Or TextBox2.Text = txt_passwort.Text = False Then
- MsgBox("Die beiden Passwörter stimmen nicht überein !")
- Else
- If RadioButton1.Checked = False And RadioButton2.Checked = False And RadioButton3.Checked = False And RadioButton4.Checked = False Then
- MsgBox("Du musst ein Klasse auswählen !")
- Else
- Alter = TextBox4.Text
- emailad = txt_email.Text
- Button1.Enabled = True
- End If
- End If
- End If
- End If
- End If
- End If
- End Sub
- Private Sub individuel_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
- Timer1.Start()
- Me.BackgroundImage = My.Resources.Unbenannt_1
- txt_passwort.MaxLength = "12"
- TextBox2.MaxLength = "12"
- txt_benutzer.MaxLength = "12"
- TextBox4.MaxLength = "2"
- TextBox2.UseSystemPasswordChar = True
- txt_passwort.UseSystemPasswordChar = True
- End Sub
- Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
- Benutzername = txt_benutzer.Text
- Benutzername = txt_email.Text
- Benutzername = TextBox4.Text
- If RadioButton1.Checked = True Then
- RadioButton1.Text = "Krieger"
- RadioButton2.Text = "Ninja"
- RadioButton3.Text = "Sura"
- RadioButton4.Text = "Schamane"
- Label3.Text = "Du wirst ein Krieger sein !"
- Klasse = "Krieger"
- PictureBox2.Image = My.Resources.krieger
- ElseIf RadioButton2.Checked = True Then
- Label3.Text = "Du wirst ein Ninja sein !"
- Klasse = "Ninja"
- PictureBox2.Image = My.Resources.ninja
- ElseIf RadioButton3.Checked = True Then
- Label3.Text = "Du wirst ein Sura sein !"
- Klasse = "Sura"
- PictureBox2.Image = My.Resources.sura
- ElseIf RadioButton4.Checked = True Then
- Klasse = "Schamane"
- Label3.Text = "Du wirst ein Schamane sein !"
- PictureBox2.Image = My.Resources.schamie
- End If
- If Geschlecht = "Männlich" Then
- RadioButton1.Text = "Krieger"
- RadioButton2.Text = "Ninja"
- RadioButton3.Text = "Sura"
- RadioButton4.Text = "Schamane"
- If RadioButton1.Checked = True Then
- Label3.Text = "Du wirst ein Krieger sein !"
- Klasse = "Krieger"
- PictureBox2.Image = My.Resources.krieger
- ElseIf RadioButton2.Checked = True Then
- Label3.Text = "Du wirst ein Ninja sein !"
- Klasse = "Ninja"
- PictureBox2.Image = My.Resources.ninja
- ElseIf RadioButton3.Checked = True Then
- Label3.Text = "Du wirst ein Sura sein !"
- Klasse = "Sura"
- PictureBox2.Image = My.Resources.sura
- ElseIf RadioButton4.Checked = True Then
- Klasse = "Schamane"
- Label3.Text = "Du wirst ein Schamane sein !"
- PictureBox2.Image = My.Resources.schamie
- End If
- ElseIf Geschlecht = "Weiblich" Then
- RadioButton1.Text = "Kriegerin"
- RadioButton2.Text = "Ninjarin"
- RadioButton3.Text = "Sura"
- RadioButton4.Text = "Schamanin"
- If RadioButton1.Checked = True Then
- Label3.Text = "Du wirst eine Kriegerin sein !"
- Klasse = "Kriegerin"
- PictureBox2.Image = My.Resources.kriegerw
- ElseIf RadioButton2.Checked = True Then
- Label3.Text = "Du wirst eine Ninjarin sein !"
- Klasse = "Ninjarin"
- PictureBox2.Image = My.Resources.ninjaw
- ElseIf RadioButton3.Checked = True Then
- Label3.Text = "Du wirst eine Sura sein !"
- Klasse = "Sura"
- PictureBox2.Image = My.Resources.suraw
- ElseIf RadioButton4.Checked = True Then
- Klasse = "Schamanin"
- Label3.Text = "Du wirst eine Schamanin sein !"
- PictureBox2.Image = My.Resources.schamiew
- End If
- End If
- End Sub
- Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
- Geschlecht = "Männlich"
- End Sub
- Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
- Geschlecht = "Weiblich"
- End Sub
- Private Sub regi_Shown(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Shown
- Me.Opacity = 1
- Do Until Me.Opacity = 0
- System.Threading.Thread.Sleep(5)
- Me.Opacity -= 0.01
- Loop
- Me.Opacity = 100
- End Sub
- End Class
img139.imageshack.us/gal.php?g=97968246.png
Unter diesem Link sind 4 BIlder schaut sie euch an ...
Das 3. ist der Fehler und das 4. ist halt die DB (vll bringt sie euch weiter)
Hoffe auf Hilfe
Edit: Wenn ihr euch das anschauen wollt schreibt mich an ihr könnt auch auf tv !
Mfg
Edit by der_Kurt:
Bitte einen aussagekräftigen Titel verwenden
Edit 2: Rot ist nur für die Administratoren. Du solltest dir nochmals die Boardregeln durchlesen. Sämtliche deiner Threadtitel lassen NICHT auf den Inhalt des Threads schließen.
Dieser Beitrag wurde bereits 4 mal editiert, zuletzt von „der_Kurt“ ()