...

View Full Version : Visual Basic Problem



Crystalz
10-05-2012, 06:41 PM
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.



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:


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

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

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:


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

alykins
10-05-2012, 07:53 PM
Syntax may be a little bit off....


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.

Crystalz
10-05-2012, 10:17 PM
Syntax may be a little bit off....


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.



EZ Archive Ads Plugin for vBulletin Copyright 2006 Computer Help Forum