 |
|
เป็น เว็บค่ะ ขอแบบละเอียดเลยนะค่ะ เนื่องจากพึ่งหัดเขียนอ่ะค่ะ โดยค่า parameter หมายถึง ID ที่เป็น Primary key ของฟอร์มค่ะ
Imports System.Data.SqlClient
Imports System.Data
Imports System.Web.HttpContext
Partial Class _Default
Inherits System.Web.UI.Page
Dim addUser As Data.SqlClient.SqlParameter
Dim con As New Data.SqlClient.SqlConnection()
Dim cmd As New Data.SqlClient.SqlCommand()
Public Sub insert()
con.ConnectionString = "Data Source=YTC-MDN-MONGKOL\APLUS;Initial Catalog=AplusVSB;User ID=sa;Password=root"
cmd.CommandText = "INSERT INTO tb_CustomerProfile(CustID,CustName,CustLastname,CustSex,CustStatus,CustBirthdate,CustEducation,CustOccupation,CustPosition,CustComapany,CustIncome,CustAddress,CustProvince,CustCounrtry,CustTel,CustMobile,CustMobileBrand,CustFax,CustEmail)VALUES(@ID,@Name,@Lastname,@Sex,@Status,@Birthdate,@Education,@Occupation,@Position,@Company,@Income,@Address,@Province,@Country,@Tel,@Mobile,@Brand,@Fax,@Email)"
cmd.Parameters.Add("@ID", Data.SqlDbType.NChar).Value = txtID.Text()
cmd.Parameters.Add("@Name", Data.SqlDbType.NVarChar).Value = txtName.Text()
cmd.Parameters.Add("@Lastname", Data.SqlDbType.NVarChar).Value = txtLastname.Text()
cmd.Parameters.Add("@Sex", Data.SqlDbType.NChar).Value = dlSex.SelectedValue()
cmd.Parameters.Add("@Status", Data.SqlDbType.NVarChar).Value = rdlStatus.SelectedValue
cmd.Parameters.Add("@Birthdate", Data.SqlDbType.NVarChar).Value = txtBirthdate.Text()
cmd.Parameters.Add("@Education", Data.SqlDbType.NChar).Value = dlEducation.SelectedValue
cmd.Parameters.Add("@Occupation", Data.SqlDbType.NVarChar).Value = dlOccupation.SelectedValue
cmd.Parameters.Add("@Position", Data.SqlDbType.NVarChar).Value = txtPositon.Text()
cmd.Parameters.Add("@Company", Data.SqlDbType.NVarChar).Value = txtCompany.Text()
cmd.Parameters.Add("@Income", Data.SqlDbType.NVarChar).Value = dlIncome.SelectedValue
cmd.Parameters.Add("@Address", Data.SqlDbType.NVarChar).Value = txtAddress.Text()
cmd.Parameters.Add("@Province", Data.SqlDbType.NVarChar).Value = dlProvince.SelectedValue
cmd.Parameters.Add("@Country", Data.SqlDbType.NVarChar).Value = dlCountry.SelectedValue
cmd.Parameters.Add("@Tel", Data.SqlDbType.NVarChar).Value = txtTel.Text()
cmd.Parameters.Add("@Mobile", Data.SqlDbType.NVarChar).Value = txtMobile.Text()
cmd.Parameters.Add("@Fax", Data.SqlDbType.NVarChar).Value = txtFax.Text()
cmd.Parameters.Add("@Brand", Data.SqlDbType.NVarChar).Value = dlMobileBrand.SelectedValue
cmd.Parameters.Add("@Email", Data.SqlDbType.NVarChar).Value = txtEmail.Text()
con.Open()
cmd.Connection = con
cmd.ExecuteNonQuery()
con.Close()
End Sub
Protected Sub btSummitProfile_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btSummitProfile.Click
insert()
Response.Write("<b> Add Data Name : " + txtName.Text + "</b><br><hr>")
'Response.Redirect(App_Path())
Response.Redirect("http://localhost:1236/ProgramAplus/Product.aspx?ID=" + txtID.Text + "&txtName=" + txtName.Text)
End Sub
End Class
-------------
Form2
Imports System.Data.SqlClient
Imports System.Data
Imports System.Web.HttpContext
Partial Class Product
Inherits System.Web.UI.Page
Dim addUser As Data.SqlClient.SqlParameter
Dim con As New Data.SqlClient.SqlConnection()
Dim cmd As New Data.SqlClient.SqlCommand()
Protected Sub btSubmit_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btSubmit.Click
End Sub
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Response.Write("<b>ID : " + Request.Params("ID") + "<br>")
Response.Write("<b>Name : " + Request.Params("txtName") + "<hr>")
End Sub
End Class
|
 |
 |
 |
 |
| Date :
2009-12-10 10:13:36 |
By :
mameaue |
|
 |
 |
 |
 |
|
|
 |
