CodingForums.com - Visual Basic Problem

CodingForums.com (http://www.codingforums.com/index.php)

- Computer Programming (http://www.codingforums.com/forumdisplay.php?f=21)

- - Visual Basic Problem (http://www.codingforums.com/showthread.php?t=275339)

Visual Basic Problem

Hello, i'm trying to make my program change a value in a database.
I've got a database called Account, and a Table called Accounts. I have 4 columns in this table. Id(Key column), UserName, Password and Adminpower.
What I am trying to do is to make a button change a value in that table. What I do not know is how to make the program know which row i want to change the value in.

Code:

    Private Sub btnAdmin_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAdmin.Click

        Dim cmd As SqlCommand

        Dim reader As SqlDataReader

        con = New SqlConnection(_connectionString)

        cmd = con.CreateCommand()

        con.Open()

        cmd.CommandText = "ALTER Accounts ('Adminpower') VALUES('1')"

        reader = cmd.ExecuteReader()

        If Not reader.HasRows Then

            MessageBox.Show("Something is wrong.")

        End If

    End Sub

That's the code so far for the button. So what I want it to do is to change the Adminpower column from 0 to 1 when pressing that button. Yes I have already connected it to the database.
When I try to press the button I get an error saying that the table doesn't exist.

Any help is appreciated.
Thanks

Screenshots:

Quote:

http://imageshack.us/a/img341/8153/image1enr.png

Quote:

http://imageshack.us/a/img715/5738/image2nhj.png

Quote:

http://imageshack.us/a/img856/3772/tablehn.png

EDIT!!!

Problem solved. I got it working, I'll keep all the text here if anyone else has a similar problem. And this is what I used:

Code:

UPDATE Accounts SET Adminpower = 1 WHERE '" & TextBox1.Text & "' = ""UserName"" AND '" & TextBox2.Text & "' = ""Password"""

Syntax may be a little bit off....

Code:

dim _user as String = txt_UserName.Text

dim cmdstr as String = String.Format("UPDATE Accounts SET Adminpower = 1 WHERE username = '{0}'", _user)





Try

dim connstr as String = "" ' enter you connection string

dim conn as new SqlConnection(connstr)

dim cmd as new SqlCommand(cmdstr, conn)

cmd.CommandType = CommandType.Text



conn.Open()

cmd.ExecuteNonQuery()

conn.Close()



MessageBox.Show("Updated successfully!", "Results", MessageBoxButtons.OK) 



Catch sX as SqlException

MessageBox.Show("There was a SQL Error!", "Results", MessageBoxButtons.OK) 



Catch eX as Exception

MessageBox.Show("There was an Error!", "Results", MessageBoxButtons.OK) 



End Try

obviously this is quick and dirty, but you should be able to build off of this.

Quote:

Originally Posted by alykins (Post 1276671)

Syntax may be a little bit off....

Code:

dim _user as String = txt_UserName.Text

dim cmdstr as String = String.Format("UPDATE Accounts SET Adminpower = 1 WHERE username = '{0}'", _user)





Try

dim connstr as String = "" ' enter you connection string

dim conn as new SqlConnection(connstr)

dim cmd as new SqlCommand(cmdstr, conn)

cmd.CommandType = CommandType.Text



conn.Open()

cmd.ExecuteNonQuery()

conn.Close()



MessageBox.Show("Updated successfully!", "Results", MessageBoxButtons.OK) 



Catch sX as SqlException

MessageBox.Show("There was a SQL Error!", "Results", MessageBoxButtons.OK) 



Catch eX as Exception

MessageBox.Show("There was an Error!", "Results", MessageBoxButtons.OK) 



End Try

obviously this is quick and dirty, but you should be able to build off of this.

I've got it working already, but I do appreciate it though. This might help someone else with the same question.