Problem mit Code.

  • VB.NET

    Problem mit Code.

    Hi Com
    Ich habe ein Problem mit meinem Source !
    Ich stelle ihn hier bereit damit ihr ihn mal anschauen könnt !

    Spoiler anzeigen

    VB.NET-Quellcode

    1. Imports MySql.Data.MySqlClient
    2. Public Class regi
    3. Dim Klasse As String = "Noch nicht gewählt!"
    4. Dim Geschlecht As String = "Noch nicht gewählt!"
    5. Dim Benutzername As String = "."
    6. Dim Email As String = "."
    7. Dim Alter As String = "."
    8. Dim emailad As String = ""
    10. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    11. Dim conn As MySqlConnection
    12. conn = New MySqlConnection
    13. conn.ConnectionString = "server=SERVER;" & "user id=USER;" & "password=PW;" & "database=DB"
    14. Try
    15. conn.Open() ' Verbindung öffnen
    17. Catch myerror As MySqlException
    18. MsgBox("Keine Verbindung zur Datenbank : " & myerror.Message.ToString)
    19. End Try
    21. Dim myAdapter As New MySqlDataAdapter
    22. 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
    23. Dim myCommand As New MySqlCommand
    24. myCommand.Connection = conn
    25. myCommand.CommandText = SQLAbfrage
    27. myAdapter.SelectCommand = myCommand
    28. Dim myData As MySqlDataReader
    29. myData = myCommand.ExecuteReader() ' Abfrage starten
    31. If myData.HasRows = 0 Then ' Wenn dieser Benutzername nicht existiert dann fang mit der Registrierung an
    32. conn.Close()
    33. conn.Open()
    34. Dim registerfinal As New MySqlDataAdapter
    35. Dim benutzer As String = (txt_benutzer.Text)
    36. Dim passwort As String = MD5StringHash(txt_passwort.Text)
    38. myCommand.CommandText = "INSERT INTO benutzer(Name, Passwort, EmailAd, Klasse, Geschlecht, Alter)" _
    39. & "VALUES('" & benutzer & "','" & passwort & "','" & emailad & "','" & Klasse & "','" & Geschlecht & "','" & Alter & "')"
    40. myCommand.ExecuteNonQuery() ' SQL Abfrage starten und eintragen
    41. MsgBox("Der Account mit dem Namen : " & txt_benutzer.Text & " wurde erfolgreich erstellt")
    42. conn.Close()
    43. End If
    45. End Sub
    47. Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    48. For y = Screen.PrimaryScreen.WorkingArea.Height - Me.Height To Screen.PrimaryScreen.WorkingArea.Width
    49. Me.Location = New Point(Screen.PrimaryScreen.WorkingArea.Width - Me.Width, y)
    50. Threading.Thread.Sleep(3)
    51. Next
    52. Me.Close()
    53. End Sub
    58. Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged
    59. If RadioButton1.Checked = False Then
    60. RadioButton2.Checked = True
    61. ElseIf RadioButton2.Checked = False Then
    62. RadioButton1.Checked = True
    65. End If
    66. End Sub
    69. Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
    70. If txt_benutzer.Text = "" Then
    71. MsgBox("Tut uns Leid !" & " Aber du musst einen Namen Wählen!")
    72. Else
    73. If TextBox4.Text = "" Then
    74. MsgBox("Gib dein Alter an !")
    75. Else
    76. If txt_email.Text = "" Then
    77. MsgBox("Gib eine Gültige Email Adresse ein !")
    78. Else
    79. If txt_passwort.Text = "" Or TextBox2.Text = "" Then
    80. MsgBox("Gib bitte in beide Felder dein Passwort ein!")
    81. Else
    82. If txt_passwort.Text = TextBox2.Text = False Or TextBox2.Text = txt_passwort.Text = False Then
    83. MsgBox("Die beiden Passwörter stimmen nicht überein !")
    84. Else
    85. If RadioButton1.Checked = False And RadioButton2.Checked = False And RadioButton3.Checked = False And RadioButton4.Checked = False Then
    86. MsgBox("Du musst ein Klasse auswählen !")
    87. Else
    88. Alter = TextBox4.Text
    89. emailad = txt_email.Text
    90. Button1.Enabled = True
    93. End If
    94. End If
    95. End If
    96. End If
    97. End If
    98. End If
    99. End Sub
    101. Private Sub individuel_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    102. Timer1.Start()
    103. Me.BackgroundImage = My.Resources.Unbenannt_1
    104. txt_passwort.MaxLength = "12"
    105. TextBox2.MaxLength = "12"
    106. txt_benutzer.MaxLength = "12"
    107. TextBox4.MaxLength = "2"
    108. TextBox2.UseSystemPasswordChar = True
    109. txt_passwort.UseSystemPasswordChar = True
    110. End Sub
    112. Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
    113. Benutzername = txt_benutzer.Text
    114. Benutzername = txt_email.Text
    115. Benutzername = TextBox4.Text
    116. If RadioButton1.Checked = True Then
    117. RadioButton1.Text = "Krieger"
    118. RadioButton2.Text = "Ninja"
    119. RadioButton3.Text = "Sura"
    120. RadioButton4.Text = "Schamane"
    121. Label3.Text = "Du wirst ein Krieger sein !"
    122. Klasse = "Krieger"
    123. PictureBox2.Image = My.Resources.krieger
    124. ElseIf RadioButton2.Checked = True Then
    125. Label3.Text = "Du wirst ein Ninja sein !"
    126. Klasse = "Ninja"
    127. PictureBox2.Image = My.Resources.ninja
    128. ElseIf RadioButton3.Checked = True Then
    129. Label3.Text = "Du wirst ein Sura sein !"
    130. Klasse = "Sura"
    131. PictureBox2.Image = My.Resources.sura
    132. ElseIf RadioButton4.Checked = True Then
    133. Klasse = "Schamane"
    134. Label3.Text = "Du wirst ein Schamane sein !"
    135. PictureBox2.Image = My.Resources.schamie
    136. End If
    137. If Geschlecht = "Männlich" Then
    138. RadioButton1.Text = "Krieger"
    139. RadioButton2.Text = "Ninja"
    140. RadioButton3.Text = "Sura"
    141. RadioButton4.Text = "Schamane"
    142. If RadioButton1.Checked = True Then
    143. Label3.Text = "Du wirst ein Krieger sein !"
    144. Klasse = "Krieger"
    145. PictureBox2.Image = My.Resources.krieger
    146. ElseIf RadioButton2.Checked = True Then
    147. Label3.Text = "Du wirst ein Ninja sein !"
    148. Klasse = "Ninja"
    149. PictureBox2.Image = My.Resources.ninja
    150. ElseIf RadioButton3.Checked = True Then
    151. Label3.Text = "Du wirst ein Sura sein !"
    152. Klasse = "Sura"
    153. PictureBox2.Image = My.Resources.sura
    154. ElseIf RadioButton4.Checked = True Then
    155. Klasse = "Schamane"
    156. Label3.Text = "Du wirst ein Schamane sein !"
    157. PictureBox2.Image = My.Resources.schamie
    158. End If
    159. ElseIf Geschlecht = "Weiblich" Then
    160. RadioButton1.Text = "Kriegerin"
    161. RadioButton2.Text = "Ninjarin"
    162. RadioButton3.Text = "Sura"
    163. RadioButton4.Text = "Schamanin"
    164. If RadioButton1.Checked = True Then
    165. Label3.Text = "Du wirst eine Kriegerin sein !"
    166. Klasse = "Kriegerin"
    167. PictureBox2.Image = My.Resources.kriegerw
    168. ElseIf RadioButton2.Checked = True Then
    169. Label3.Text = "Du wirst eine Ninjarin sein !"
    170. Klasse = "Ninjarin"
    171. PictureBox2.Image = My.Resources.ninjaw
    172. ElseIf RadioButton3.Checked = True Then
    173. Label3.Text = "Du wirst eine Sura sein !"
    174. Klasse = "Sura"
    175. PictureBox2.Image = My.Resources.suraw
    176. ElseIf RadioButton4.Checked = True Then
    177. Klasse = "Schamanin"
    178. Label3.Text = "Du wirst eine Schamanin sein !"
    179. PictureBox2.Image = My.Resources.schamiew
    180. End If
    181. End If
    182. End Sub
    183. Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
    184. Geschlecht = "Männlich"
    185. End Sub
    187. Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
    188. Geschlecht = "Weiblich"
    189. End Sub
    191. Private Sub regi_Shown(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Shown
    192. Me.Opacity = 1
    193. Do Until Me.Opacity = 0
    194. System.Threading.Thread.Sleep(5)
    195. Me.Opacity -= 0.01
    196. Loop
    197. Me.Opacity = 100
    198. End Sub
    199. 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 :love:

    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.

    Dieser Beitrag wurde bereits 4 mal editiert, zuletzt von „der_Kurt“ ()

Facebook
Telefonspende