Update table help

[Ron]

Hello,

I am trying to do a simple update on employee information. I am a
novice at both aspx and SQLServer, so I hope you are not too offended
by my code. The following is the update code:

--Start of code--
dim objConnection as SqlConnection
dim daAddEmp as SqlDataAdapter
dim strconnection as string = "myserverlocati on"
objconnection = New SqlConnection(s trConnection)
dim strSQL as String = "SELECT * FROM employees"
dim daEditEmp as New SqlDataAdapter( strSQL, objConnection)
dim dsTemp as New Dataset()
daEditEmp.Fill( dsTemp, "editemploy ee")

dim tbl as DataTable = dsTemp.Tables(" editemployee")
tbl.PrimaryKey = New DataColumn() _
{ tbl.Columns("em p_id") }

dim row as DataRow = tbl.Rows.Find(s ession("empid") )
Row.Item("Emp_N um") = EmpNum.text
Row.Item("Emp_L ast") = empLast.text
Row.Item("Emp_F irst") = empFirst.text
Row.Item("Emp_T itle") = empTitle.text
Row.Item("Emp_D ept") = empDept.text
Row.Item("Emp_S ite") = empSite.selecte ditem.value
Row.Item("Emp_A dd") = empAdd.text
Row.Item("Emp_W ork") = empWork.text
Row.Item("Emp_F ax") = empFax.text
Row.Item("Emp_H ome") = empHome.text
Row.Item("Emp_E mail") = empEmail.text
Row.Item("Emp_M gr") = empMgr.text
Row.Item("Emp_M gr_Phone") = empMgrnum.text
Row.Item("Emp_P ass") = emppass.text

dim cb as New SqlCommandBuild er(daEditEmp)
objConnection.O pen()
daEditEmp.Updat e(dsTemp, "editemploy ee")
objconnection.c lose()
fill_page() 'calls procedure to repopulate fields
--end of code--

I appreciate any and all help. Thanks.

--Ron

[Curt_C [MVP]]

I'd suggest an "update table...." as opposed to a "select " and then
..Update.
You will find life will be MUCH easier.

--
Curt Christianson
Owner/Lead Developer, DF-Software
Site: http://www.Darkfalz.com
Blog: http://blog.Darkfalz.com
"Ron" <ju*********@ho tmail.com> wrote in message
news:e6******** *************** **@posting.goog le.com...

Hello,

I am trying to do a simple update on employee information. I am a
novice at both aspx and SQLServer, so I hope you are not too offended
by my code. The following is the update code:

--Start of code--
dim objConnection as SqlConnection
dim daAddEmp as SqlDataAdapter
dim strconnection as string = "myserverlocati on"
objconnection = New SqlConnection(s trConnection)
dim strSQL as String = "SELECT * FROM employees"
dim daEditEmp as New SqlDataAdapter( strSQL, objConnection)
dim dsTemp as New Dataset()
daEditEmp.Fill( dsTemp, "editemploy ee")

dim tbl as DataTable = dsTemp.Tables(" editemployee")
tbl.PrimaryKey = New DataColumn() _
{ tbl.Columns("em p_id") }

dim row as DataRow = tbl.Rows.Find(s ession("empid") )
Row.Item("Emp_N um") = EmpNum.text
Row.Item("Emp_L ast") = empLast.text
Row.Item("Emp_F irst") = empFirst.text
Row.Item("Emp_T itle") = empTitle.text
Row.Item("Emp_D ept") = empDept.text
Row.Item("Emp_S ite") = empSite.selecte ditem.value
Row.Item("Emp_A dd") = empAdd.text
Row.Item("Emp_W ork") = empWork.text
Row.Item("Emp_F ax") = empFax.text
Row.Item("Emp_H ome") = empHome.text
Row.Item("Emp_E mail") = empEmail.text
Row.Item("Emp_M gr") = empMgr.text
Row.Item("Emp_M gr_Phone") = empMgrnum.text
Row.Item("Emp_P ass") = emppass.text

dim cb as New SqlCommandBuild er(daEditEmp)
objConnection.O pen()
daEditEmp.Updat e(dsTemp, "editemploy ee")
objconnection.c lose()
fill_page() 'calls procedure to repopulate fields
--end of code--

I appreciate any and all help. Thanks.

--Ron

[Ron]

Hey Curt,

Thanks for the response. Your suggestion is noted. As it turns out,
after I implemented your suggestion the update still would not work. I
finally find the mistake though. The same 'fill_page()' procedure I
call at the end of the update procedure is called in the page_load
procedure... w/o a postback if/then!! So I was replacing the updated
data w/ the existing data and therefore 'updating' w/ the unchanged
info. Oh well, novice mistake. Hopefully somebody else will learn
from this post. Thanks again.
"Curt_C [MVP]" <software_AT_da rkfalz.com> wrote in message news:<Or******* *******@TK2MSFT NGP12.phx.gbl>. ..

I'd suggest an "update table...." as opposed to a "select " and then
.Update.
You will find life will be MUCH easier.

--
Curt Christianson
Owner/Lead Developer, DF-Software
Site: http://www.Darkfalz.com
Blog: http://blog.Darkfalz.com
"Ron" <ju*********@ho tmail.com> wrote in message
news:e6******** *************** **@posting.goog le.com...

Hello,

I am trying to do a simple update on employee information. I am a
novice at both aspx and SQLServer, so I hope you are not too offended
by my code. The following is the update code:

--Start of code--
dim objConnection as SqlConnection
dim daAddEmp as SqlDataAdapter
dim strconnection as string = "myserverlocati on"
objconnection = New SqlConnection(s trConnection)
dim strSQL as String = "SELECT * FROM employees"
dim daEditEmp as New SqlDataAdapter( strSQL, objConnection)
dim dsTemp as New Dataset()
daEditEmp.Fill( dsTemp, "editemploy ee")

dim tbl as DataTable = dsTemp.Tables(" editemployee")
tbl.PrimaryKey = New DataColumn() _
{ tbl.Columns("em p_id") }

dim row as DataRow = tbl.Rows.Find(s ession("empid") )
Row.Item("Emp_N um") = EmpNum.text
Row.Item("Emp_L ast") = empLast.text
Row.Item("Emp_F irst") = empFirst.text
Row.Item("Emp_T itle") = empTitle.text
Row.Item("Emp_D ept") = empDept.text
Row.Item("Emp_S ite") = empSite.selecte ditem.value
Row.Item("Emp_A dd") = empAdd.text
Row.Item("Emp_W ork") = empWork.text
Row.Item("Emp_F ax") = empFax.text
Row.Item("Emp_H ome") = empHome.text
Row.Item("Emp_E mail") = empEmail.text
Row.Item("Emp_M gr") = empMgr.text
Row.Item("Emp_M gr_Phone") = empMgrnum.text
Row.Item("Emp_P ass") = emppass.text

dim cb as New SqlCommandBuild er(daEditEmp)
objConnection.O pen()
daEditEmp.Updat e(dsTemp, "editemploy ee")
objconnection.c lose()
fill_page() 'calls procedure to repopulate fields
--end of code--

I appreciate any and all help. Thanks.

--Ron