 |
| |
ขอรบกวนอีกทีค่ะ เรื่องการ update หลาย table ที่ไม่สามารถ update ได้ |
| |
 |
|
|
 |
 |
|
ขอรบกวนอีกทีค่ะ เรื่องการ update หลาย table ที่ไม่สามารถ update ได้
รบกวนช่วยแนะนำทีค่ะ ไม่อยากว่า เขียนถูกหรือ เปล่า เนื่องจากติด ตัว update หลายวันแล้ว แก้ไม่ได้สักที
Sub ViewData()
'*** DataTable ***'
Dim dtAdapter As SqlDataAdapter
Dim dt As New DataTable
strSQL = "SELECT customer.*, center.* FROM customer INNER JOIN center ON customer.center_id = center.center_id WHERE customer.CustomerID = '" & Request.QueryString("CustomerID") & "'"
dtAdapter = New SqlDataAdapter(strSQL, objConn)
dtAdapter.Fill(dt)
If dt.Rows.Count > 0 Then
Me.txtCustomerID.Text = dt.Rows(0)("CustomerID")
Me.txtName.Text = dt.Rows(0)("Name")
Me.txtEmail.Text = dt.Rows(0)("Email")
Me.txtCountryCode.Text = dt.Rows(0)("CountryCode")
Me.txtBudget.Text = dt.Rows(0)("Budget")
Me.txtUsed.Text = dt.Rows(0)("Used")
Me.txtcenter_name_th.Text = dt.Rows(0)("center_name_th")
End If
End Sub
Protected Sub btnSave_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnSave.Click
strSQL = "UPDATE customer SET " & _
" CustomerID = '" & Me.txtCustomerID.Text & "' " & _
" ,Name = '" & Me.txtName.Text & "' " & _
" ,Email = '" & Me.txtEmail.Text & "' " & _
" ,CountryCode = '" & Me.txtCountryCode.Text & "' " & _
" ,Budget = '" & Me.txtBudget.Text & "' " & _
" ,Used = '" & Me.txtUsed.Text & "' " & _
" WHERE CustomerID = '" & Request.QueryString("CustomerID") & "' "
Dim strSQL1 As String
strSQL1 = "UPDATE center SET " & _
" center_name_th = '" & Me.txtcenter_name_th.Text & "' " & _
" WHERE center_id = '" & Request.QueryString("center_id") & "' "
objCmd = New SqlCommand
With objCmd
.Connection = objConn
.CommandText = strSQL
.CommandText = strSQL1
.CommandType = CommandType.Text
End With
Me.pnlAdd.Visible = False
Try
objCmd.ExecuteNonQuery()
Me.lblStatus.Text = "Record Updated"
Me.lblStatus.Visible = True
Catch ex As Exception
Me.lblStatus.Text = "Record can not update"
End Try
Response.Redirect("test.aspx")
End Sub
Tag : .NET, Ms SQL Server 2005, Web (ASP.NET), VS 2008 (.NET 3.x)
|
|
|
 |
 |
 |
 |
| Date :
2011-03-22 13:22:26 |
By :
myASP |
View :
993 |
Reply :
3 |
|
 |
 |
 |
 |
|
|
|
|
 |
 |
|
 |
 |
| |
|
|
|
| |
|
Private Sub Cmd_SAVE_EDIT_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cmd_SAVE_EDIT.Click
Dim sqlSave_Edit As String
Try
[font=Verdana] sqlSave_Edit = "UPDATE color_line "
sqlSave_Edit &= " SET Color_ID = '" & txtColor_ID.Text & "',"
sqlSave_Edit &= " Color_Type = '" & txtColor_Type.Text & "'"
sqlSave_Edit &= " WHERE Color_ID ='" & txtColor_ID.Text & "'"
With DBSConn
.CommandType = CommandType.Text
.CommandText = sqlSave_Edit
.Connection = DBConn
.ExecuteNonQuery()
[/font]
DBConn.Close()
End With
MessageBox.Show("แก้ไขข้อมูลสี LINE โทรศัพท์ เรียบร้อยแล้ว", "แจ้งให้ทราบ", MessageBoxButtons.OK, MessageBoxIcon.Information)
Catch ex As Exception
MsgBox(ex.Message)
End Try
Return
End Sub
ตามนั้นเลย UPDATE ถ้าจะทำ 1 ตารางก้อ เอาทั้งหมดที่ให้นี้เลย
แต่ถ้าหลาย ๆ ตาราง ก้อเอาเฉพาะสีแดง ๆ ที่ทำไว้ วางกี่อันก้อตามตารางที่ต้องการ เลย
|
| |
|
|
| |
| Date :
2011-03-22 13:35:31 |
By :
angelrings0 |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
ขอบคุณมากนะค่ะ
เดี๋ยวขอลองก่อนแล้วจะมาบอกผลนะคะ
|
| |
|
|
| |
| Date :
2011-03-22 13:39:16 |
By :
myASP |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
ได้แล้วค่ะ
ขอบพระคุณ คุณ angelrings0 อย่างสูงเลยนะคะ ขอบคุณจริงๆค่ะ
|
| |
|
|
| |
| Date :
2011-03-22 14:07:54 |
By :
myASP |
|
|
| |
|
|
|
|
|
| |
|
|
|
|
|
