<%@ Import namespace="System.Data" %>
<%@ Import namespace="System.Data.SqlClient" %>
Updating a database
Dim strConnection As String = "Data Source=whsql-v08.prod.mesa1.secureserver.net;Initial Catalog=DB_49907;User ID=rntsoftuser;Password='password';"
Dim objConnection As SqlConnection
Sub Page_Load(ByVal Source As Object, ByVal E As EventArgs)
If Not IsPostBack Then
LoadProduct()
End If
End Sub
Sub LoadProduct()
Connect()
Dim strQuery As String = "SELECT FirstName, LastName " & _
"FROM Employee"
Dim dbComm As New SqlCommand(strQuery, objConnection)
Dim reader As SqlDataReader = dbComm.ExecuteReader()
reader.Read()
txtFirstName.Text = reader.GetString(0)
txtLastName.Text = reader.GetString(0)
reader.Close()
Disconnect()
End Sub
Sub btnChange_Click(ByVal Sender As Object, ByVal E As EventArgs)
UpdateProduct()
LoadProduct()
End Sub
Private Sub UpdateProduct()
Dim strSQL As String = "UPDATE Employee" & _
" SET FirstName = " & txtLastName.Text & _
" WHERE ID = 1"
Connect()
Dim dbComm As New SqlCommand(strSQL, objConnection)
dbComm.ExecuteNonQuery()
Disconnect()
End Sub
Private Sub Connect()
If objConnection Is Nothing Then
objConnection = New SqlConnection(strConnection)
End If
If objConnection.State = ConnectionState.Closed Then
objConnection.Open()
End If
End Sub
Private Sub Disconnect()
objConnection.Close()
End Sub