ต่อไป »

[mr.fabza]

    Private Sub OK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK.Click
        mysqlconnection = New MySqlConnection
        mysqlconnection.ConnectionString = "server=localhost;user id=root;password=123456;database=fabza;"
        Try
            mysqlconnection.Open()
            MessageBox.Show("เชื่อต่อเซิฟฐานข้อมูลสำเร็จ")
        Catch ex As Exception
            mysqlconnection.Close()
            MessageBox.Show("ไม่สามาเชือมต่อฐานข้อมูลได้" & UsernameTextBox.Text)
        End Try
        Dim MySqladapter As New MySqlDataAdapter
        Dim sqlquary = "SELECT * FROM user whare uername '" & UsernameTextBox.Text & "' AND Password = '" & PasswordTextBox.Text & "';"
        Dim command As New MySqlCommand
        command.Connection = mysqlconnection
        command.CommandText = sqlquary
        MySqladapter.selectcommand = command
        Dim mydata As MySqlDataReader
        mydata = command.ExecuteReader
        If mydata.HasRows = 0 Then
            MessageBox.Show("logintest")
        End If
        MessageBox.Show("test: " & UsernameTextBox.Text)
        form2.show()
    End Sub

มัน error ตรงบันทัดสีแดงอะครับผู้รู้ช่วยทีครับ

[DataCenterAsia.com]

มันแจ้ง error ว่าอะไรล่ะครับ

[mr.fabza]

ตามรูปครับ T^T

[nuijang24]

ตรงคำสั่ง Select น่ะครับ
Dim sqlquary = "SELECT * FROM user whare uername '" & UsernameTextBox.Text & "' AND Password = '" & PasswordTextBox.Text & "';"

ตรง where นะครับ ไม่ใช่ whare แล้วก็ username ต้องมี = ด้วยนะครับ

ยังไงลองเช็ค select statement ดูนะครับ

[mr.fabza]

ตรงคำสั่ง Select น่ะครับ
Dim sqlquary = "SELECT * FROM user whare uername '" & UsernameTextBox.Text & "' AND Password = '" & PasswordTextBox.Text & "';"

ตรง where นะครับ ไม่ใช่ whare แล้วก็ username ต้องมี = ด้วยนะครับ

ยังไงลองเช็ค select statement ดูนะครับ

ขอบคุณครับ ลองแก้ที่ท่านบอกแล้วลองเชค ฟิลด์ไม่ตรงกับฐานข้อมูลครับ