By using this site, you agree to our updated Privacy Policy and our Terms of Use. Manage your Cookies Settings.
444,234 Members | 1,850 Online
Bytes IT Community
+ Ask a Question
Need help? Post your question and get tips & solutions from a community of 444,234 IT Pros & Developers. It's quick & easy.

Code to update the table

P: n/a
Please excuse my ignorance, but I am trying to teach myself .Net
without a lot of help. At this point I have created a page with a few
text boxes and combo boxes that I am using as an example.

The page displays nicely with the Requestor, DivMgr, ChgType,
Description fields.

What I would like to do at this point is create a Save button (at
bottom ref: Button1_Click) that, when clicked, inserts the data to the
table.

Can a .Net guru help with this one?
Thanks for the help in advance.

'************************************************* ***********
Imports System.Data.SqlClient

Public Class WebForm1
Inherits System.Web.UI.Page
#Region " Web Form Designer Generated Code "

'This call is required by the Web Form Designer.
<System.Diagnostics.DebuggerStepThrough()> Private Sub
InitializeComponent()
Dim configurationAppSettings As
System.Configuration.AppSettingsReader = New
System.Configuration.AppSettingsReader
Me.conn = New System.Data.SqlClient.SqlConnection
'
'conn
'
Me.conn.ConnectionString =
CType(configurationAppSettings.GetValue("conn.Conn ectionString",
GetType(System.String)), String)

End Sub
Protected WithEvents TextBox1 As System.Web.UI.WebControls.TextBox
Protected WithEvents conn As System.Data.SqlClient.SqlConnection
Protected WithEvents ddlRequestor As
System.Web.UI.WebControls.DropDownList
Protected WithEvents Label1 As System.Web.UI.WebControls.Label
Protected WithEvents ddlDivMgr As
System.Web.UI.WebControls.DropDownList
Protected WithEvents Label2 As System.Web.UI.WebControls.Label
Protected WithEvents Label3 As System.Web.UI.WebControls.Label
Protected WithEvents Label4 As System.Web.UI.WebControls.Label
Protected WithEvents Label5 As System.Web.UI.WebControls.Label
Protected WithEvents tbxDescription As
System.Web.UI.WebControls.TextBox
Protected WithEvents tbxChangeName As
System.Web.UI.WebControls.TextBox
Protected WithEvents Label6 As System.Web.UI.WebControls.Label
Protected WithEvents ddlChangeType As
System.Web.UI.WebControls.DropDownList
Protected WithEvents Button1 As System.Web.UI.WebControls.Button

'NOTE: The following placeholder declaration is required by the Web
Form Designer.
'Do not delete or move it.
Private designerPlaceholderDeclaration As System.Object

Private Sub Page_Init(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Init
'CODEGEN: This method call is required by the Web Form Designer
'Do not modify it using the code editor.
InitializeComponent()
End Sub

#End Region

Private Sub Page_Load(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
'Put user code to initialize the page here
Dim query As String
Dim ds As New DataSet
query = "select names from requestor order by names"
Dim da As New SqlDataAdapter(query, conn)
da.Fill(ds, "Requestor")
ddlRequestor.DataSource = ds
ddlRequestor.DataMember = "Requestor"
ddlRequestor.DataTextField = "names"
ddlRequestor.DataBind()

query = "select DivMgr from DivMgr order by DivMgr"
Dim daDivMgr As New SqlDataAdapter(query, conn)
daDivMgr.Fill(ds, "DivMgr")
ddlDivMgr.DataSource = ds
ddlDivMgr.DataMember = "DivMgr"
ddlDivMgr.DataTextField = "DivMgr"
ddlDivMgr.DataBind()

query = "select Type from ChgType order by Type"
Dim daChangeType As New SqlDataAdapter(query, conn)
daChangeType.Fill(ds, "ChgType")
ddlChangeType.DataSource = ds
ddlChangeType.DataMember = "ChgType"
ddlChangeType.DataTextField = "Type"
ddlChangeType.DataBind()

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button1.Click
'How do I insert the values above?
End Sub
End Class

Nov 21 '05 #1
Share this Question
Share on Google+
4 Replies


P: n/a
The following KB article may be of some assistance, depending on your exact
circumstances.

http://support.microsoft.com/default...b;en-us;301248

--
David Lloyd
MCSD .NET
http://LemingtonConsulting.com

This response is supplied "as is" without any representations or warranties.
"robboll" <ro*****@hotmail.com> wrote in message
news:11*********************@g43g2000cwa.googlegro ups.com...
Please excuse my ignorance, but I am trying to teach myself .Net
without a lot of help. At this point I have created a page with a few
text boxes and combo boxes that I am using as an example.

The page displays nicely with the Requestor, DivMgr, ChgType,
Description fields.

What I would like to do at this point is create a Save button (at
bottom ref: Button1_Click) that, when clicked, inserts the data to the
table.

Can a .Net guru help with this one?
Thanks for the help in advance.

'************************************************* ***********
Imports System.Data.SqlClient

Public Class WebForm1
Inherits System.Web.UI.Page
#Region " Web Form Designer Generated Code "

'This call is required by the Web Form Designer.
<System.Diagnostics.DebuggerStepThrough()> Private Sub
InitializeComponent()
Dim configurationAppSettings As
System.Configuration.AppSettingsReader = New
System.Configuration.AppSettingsReader
Me.conn = New System.Data.SqlClient.SqlConnection
'
'conn
'
Me.conn.ConnectionString =
CType(configurationAppSettings.GetValue("conn.Conn ectionString",
GetType(System.String)), String)

End Sub
Protected WithEvents TextBox1 As System.Web.UI.WebControls.TextBox
Protected WithEvents conn As System.Data.SqlClient.SqlConnection
Protected WithEvents ddlRequestor As
System.Web.UI.WebControls.DropDownList
Protected WithEvents Label1 As System.Web.UI.WebControls.Label
Protected WithEvents ddlDivMgr As
System.Web.UI.WebControls.DropDownList
Protected WithEvents Label2 As System.Web.UI.WebControls.Label
Protected WithEvents Label3 As System.Web.UI.WebControls.Label
Protected WithEvents Label4 As System.Web.UI.WebControls.Label
Protected WithEvents Label5 As System.Web.UI.WebControls.Label
Protected WithEvents tbxDescription As
System.Web.UI.WebControls.TextBox
Protected WithEvents tbxChangeName As
System.Web.UI.WebControls.TextBox
Protected WithEvents Label6 As System.Web.UI.WebControls.Label
Protected WithEvents ddlChangeType As
System.Web.UI.WebControls.DropDownList
Protected WithEvents Button1 As System.Web.UI.WebControls.Button

'NOTE: The following placeholder declaration is required by the Web
Form Designer.
'Do not delete or move it.
Private designerPlaceholderDeclaration As System.Object

Private Sub Page_Init(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Init
'CODEGEN: This method call is required by the Web Form Designer
'Do not modify it using the code editor.
InitializeComponent()
End Sub

#End Region

Private Sub Page_Load(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
'Put user code to initialize the page here
Dim query As String
Dim ds As New DataSet
query = "select names from requestor order by names"
Dim da As New SqlDataAdapter(query, conn)
da.Fill(ds, "Requestor")
ddlRequestor.DataSource = ds
ddlRequestor.DataMember = "Requestor"
ddlRequestor.DataTextField = "names"
ddlRequestor.DataBind()

query = "select DivMgr from DivMgr order by DivMgr"
Dim daDivMgr As New SqlDataAdapter(query, conn)
daDivMgr.Fill(ds, "DivMgr")
ddlDivMgr.DataSource = ds
ddlDivMgr.DataMember = "DivMgr"
ddlDivMgr.DataTextField = "DivMgr"
ddlDivMgr.DataBind()

query = "select Type from ChgType order by Type"
Dim daChangeType As New SqlDataAdapter(query, conn)
daChangeType.Fill(ds, "ChgType")
ddlChangeType.DataSource = ds
ddlChangeType.DataMember = "ChgType"
ddlChangeType.DataTextField = "Type"
ddlChangeType.DataBind()

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button1.Click
'How do I insert the values above?
End Sub
End Class
Nov 21 '05 #2

P: n/a
Robboll,

In my opinion does it go to far if we try to complete the most difficult
part of your program.

However you are talking about comboboxes while you are using dropdownboxes
the combobox is a control from a winform and not from a webform.

It is therefore normal to assume than that you use a winform and not a
webform application (what I could only see in your code).

While when not tell in this newsgroup a winform is default.

Probably therefore you got from David a sample for a winform application.

There is a big different however probably you can use it, if you keep
remembering you that a weppage is not persistent. That means that you have
to save the data when you end your program (post the page) in a session
item.

response.session.item("ds") = mydataset

When it is posted back you can load the dataset than again.

Have a look for that for that session and IsPostBack on MSDN.

I hope this helps,

Cor
Nov 21 '05 #3

P: n/a
As I said -- "excuse my ignorance" I am finally getting involved with
..Net and at this juncture a combobox is a dropdown is a "thingy that
you click on to display a list of values", etc. But I'm getting there.
The vernacular comes next. But thanks for the clarification.

Cor Ligthert wrote:
Robboll,

In my opinion does it go to far if we try to complete the most difficult
part of your program.

However you are talking about comboboxes while you are using dropdownboxes
the combobox is a control from a winform and not from a webform.

It is therefore normal to assume than that you use a winform and not a
webform application (what I could only see in your code).

While when not tell in this newsgroup a winform is default.

Probably therefore you got from David a sample for a winform application.

There is a big different however probably you can use it, if you keep
remembering you that a weppage is not persistent. That means that you have
to save the data when you end your program (post the page) in a session
item.

response.session.item("ds") = mydataset

When it is posted back you can load the dataset than again.

Have a look for that for that session and IsPostBack on MSDN.

I hope this helps,

Cor


Nov 21 '05 #4

P: n/a
Thanks for the tip. I should be able to do something with it.

RBollinger

Nov 21 '05 #5

This discussion thread is closed

Replies have been disabled for this discussion.