🔒 Closed Pa help po sa error vb.net simple login lang po

[Jpoiloko]

Mga master patulong naman po ako nito bakit lagi may error na ganito ano po ba mali dito sa ss ko po? Maraming salamat po

 

[Shiraori]

hindi nyo po naiprepare yung command. Try nyo po lagyan ng command.Prepare() bago mag add ng parameter
pwede rin ito gamitin mo sa pag prepare para di gaano mahaba command.Parameters.AddWithValue("@paramname",value)

 

[Jpoiloko]

hindi nyo po naiprepare yung command. Try nyo po lagyan ng command.Prepare() bago mag add ng parameter
pwede rin ito gamitin mo sa pag prepare para di gaano mahaba command.Parameters.AddWithValue("@paramname",value)

Salamat master try ko

 

[Jpoiloko]

Ganon padin hay

 

[gantz012]

command.Parameters.Add("@user", MySqlDbType. VarChar). Value = txtusername.Text

 

[aprjhe143]

try mo gumamit ng DataReader instead of DataTable para mas madali

public conn as new mysqlConnection("Server; User ID; Password; Database;")
dim str as string

str = "select * from useracct WHERE username = '" & txtUname.Text & "' and password = '" & txtPassword.Text & "'"

conn.Open()

Dim mysC As New MySqlCommand(str, conn)
Dim mysDR As MySqlDataReader

mysDR = mysC.ExecuteReader

If mysDR.HasRows Then

conn.Close()
MessageBox.Show("Welcome to MY PROGRAM!", "Login", MessageBoxButtons.OK, MessageBoxIcon.Information)
frmMain.Show()
Me.Hide()

Else

MessageBox.Show("Username and Password did not match!", "Unable to login", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
conn.Close()
txtPassword.Clear()
txtUname.Clear()
txtUname.Focus()

End If


Sana makatulong!

 

[Shiraori]

Ganon padin hay

oh? pwede po patiningin ng bagong codes

try nyo din po yung kay arpjhe143

 

[Jpoiloko]

try mo gumamit ng DataReader instead of DataTable para mas madali

public conn as new mysqlConnection("Server; User ID; Password; Database;")
dim str as string

str = "select * from useracct WHERE username = '" & txtUname.Text & "' and password = '" & txtPassword.Text & "'"

conn.Open()

Dim mysC As New MySqlCommand(str, conn)
Dim mysDR As MySqlDataReader

mysDR = mysC.ExecuteReader

If mysDR.HasRows Then

conn.Close()
MessageBox.Show("Welcome to MY PROGRAM!", "Login", MessageBoxButtons.OK, MessageBoxIcon.Information)
frmMain.Show()
Me.Hide()

Else

MessageBox.Show("Username and Password did not match!", "Unable to login", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
conn.Close()
txtPassword.Clear()
txtUname.Clear()
txtUname.Focus()

End If


Sana makatulong!

Salamat po master

 

[Jpoiloko]

oh? pwede po patiningin ng bagong codes

try nyo din po yung kay arpjhe143

Ok na po master salamat po sa tulong

 

[aprjhe143]

Salamat po master

Walang anuman TS, pa confirm narin kung gumana sayo..

 

[aprjhe143]

Salamat po master

nga pala, VB.NET 2008 user po ako TS.. Baka may konting conflict sa code..

 

[Jpoiloko]

nga pala, VB.NET 2008 user po ako TS.. Baka may konting conflict sa code..

Nag adust lang po ako kunti kc 2017 gamit ko po pero same lng din may dagdag lng kunti

 

[aprjhe143]

Nag adust lang po ako kunti kc 2017 gamit ko po pero same lng din may dagdag lng kunti

ahh cge TS, good luck sa program mo.. post ka lang or direct message kung may kailangan basta about VB.net pagtutulungan natin yan..