 |
|
รบกวนช่วยดูให้หน่อยนะ หาจุดที่ มันบอก Syntax Error ปล เพิ่ม ลบ แก้ไข ค้นหา ได้หมดแต่ ตาย แก้ไขอะครับ
Dim rs As New ADODB.Recordset
If MsgBox("¤Ø³µéͧ¡ÒÃá¡éä¢ÃÒ¡Òà ãªè ËÃ×Í äÁè", vbQuestion + vbYesNo, "ʶҹÐ") = vbYes Then
Dim sqledit As String
sqledit = "Update customer Set"
sqledit = sqledit & "No_Id_Cus='" & txtid.Text & "',"
sqledit = sqledit & "First_Cus='" & txtfirst.Text & "',"
sqledit = sqledit & "Last_Cus='" & txtlast.Text & "',"
sqledit = sqledit & "BirthD_Cus='" & cbbd & "',"
sqledit = sqledit & "BirthM_Cus='" & cbbm & "',"
sqledit = sqledit & "BirthY_Cus='" & cbby & "',"
sqledit = sqledit & "Sex_Cus='" & cbsex & "',"
sqledit = sqledit & "Address_Cus='" & txtaddress.Text & "',"
sqledit = sqledit & "City_Cus='" & txtcity.Text & "' ,"
sqledit = sqledit & "Provice_Cus='" & cbprovice & "',"
sqledit = sqledit & "Tel_Cus='" & txttel.Text & "',"
sqledit = sqledit & "Date_Cus='" & Date & "' "
sqledit = sqledit & " WHERE No_Id_Cus =" & txtid.Text
Set rs = conndb.Execute(sqledit)
End If
Access
No_Id_Cus AutoNumber First_Cus Text Last_Cus Text BirthD_Cus Text
BirthM_Cus Text BirthY_Cus Text Sex_Cus Text Address_Cus Text
City_Cus Text Provice_Cus Text Tel_Cus Text Date_Cus Date/Time
Tag : .NET, VBScript
|
ประวัติการแก้ไข
2013-08-09 10:36:00
|
 |
 |
 |
 |
| Date :
2013-08-09 10:34:22 |
By :
golfandnext5 |
View :
658 |
Reply :
3 |
|
 |
 |
 |
 |
|
|
|
|
 |
