รบกวนช่วยดูให้หน่อยนะ มันบอก Syntax Error ช่วยดูหน่อยนะครับ /VB6
รบกวนช่วยดูให้หน่อยนะ หาจุดที่ มันบอก 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/TimeTag : .NET, VBScript
ประวัติการแก้ไข 2013-08-09 10:36:00
Date :
2013-08-09 10:34:22
By :
golfandnext5
View :
631
Reply :
3
หรือ พอจะ พลิกแผลง Code แบบไหนได้บ้าง
ประวัติการแก้ไข 2013-08-09 11:03:46
Date :
2013-08-09 10:35:41
By :
golfandnext5
ผิดตรงนี้มั้งครับ
sqledit = "Update customer Set"
sqledit = sqledit & "No_Id_Cus='" & txtid.Text & "'," --->>> จัดวรรคใส่ไปให้หน่อยครับ
Date :
2013-08-09 15:16:57
By :
fonfire
SqlEdit = "Update customer SET "
ได้แล้ว ครับ จัดวรรค ที เดียว ขอบคุณมากครับ
Date :
2013-08-09 15:48:55
By :
golfandnext5
Load balance : Server 01