PDA

View Full Version : error در update sql



alix58
یک شنبه 23 دی 1386, 13:37 عصر
من برنامه ی دفترچه تلفن نوشته ام که در یک صفحه از طریق دستور update sql اقدام به ویرایش اطلاعات Database می کند.ولی متاسفانه اکنون در هنگام انجام update در هنگام اجرا error بصورت مقابل میدهد:
ERROR: Invalid SQL statment ; expected 'DELETE' , 'Insert' , 'Procedure' , 'Select' , or 'Update'
در ضمن دستورات insert , select و delete بطور کامل و بدون ایراد اجرا می گردند و فقط در دستور update ایراد می دهد.خواهشمندم مرا راهنمائی کنید.

vbhamed
دوشنبه 24 دی 1386, 16:18 عصر
سلام
یا نمونه دستور Update رو بزارید یا برنامتونو تا اشکال مشخص بشه

bobrus
دوشنبه 24 دی 1386, 18:31 عصر
دستور SQLواسه UPDATE رو درست ننوشتین دستورتون رو اینجا کپی کنین تا معلوم شه کجاش غلطه

alix58
چهارشنبه 26 دی 1386, 08:40 صبح
Private Sub cmdsave_Click()
Select Case keystat
Case 1
SqlStr = "insert into per(perno,name,lname,location,city,loctelno,telno, faxno,fx,code,mobile,homeno) values("
SqlStr = SqlStr & Val(txt1.Text) & ",'"
SqlStr = SqlStr & txt2.Text & "','"
SqlStr = SqlStr & txt3.Text & "','"
SqlStr = SqlStr & txt4.Text & "','"
SqlStr = SqlStr & txt5.Text & "',"
SqlStr = SqlStr & Val(txt6.Text) & ","
SqlStr = SqlStr & Val(txt7.Text) & ","
SqlStr = SqlStr & Val(txt8.Text) & ","
SqlStr = SqlStr & Val(txt9.Text) & ","
SqlStr = SqlStr & Val(txt10.Text) & ","
SqlStr = SqlStr & Val(txt11.Text) & ","
SqlStr = SqlStr & Val(txt12.Text) & ")"
runSQLcmd SqlStr
Case 2
SqlStr = "update per set name='"
SqlStr = SqlStr & txt2.Text & "',lname='"
SqlStr = SqlStr & txt3.Text & "',location='"
SqlStr = SqlStr & txt4.Text & "',city='"
SqlStr = SqlStr & txt5.Text & "',loctelno="
SqlStr = SqlStr & Val(txt6.Text) & ",telno="
SqlStr = SqlStr & Val(txt7.Text) & ",faxno="
SqlStr = SqlStr & Val(txt8.Text) & ",fx="
SqlStr = SqlStr & Val(txt9.Text) & ",code="
SqlStr = SqlStr & Val(txt10.Text) & ",mobile="
SqlStr = SqlStr & Val(txt11.Text) & ",homeno="
SqlStr = SqlStr & Val(txt12.Text) & perno = " & Val(Txth.Text)"
runSQLcmd SqlStr
End Select
fillmf Me.mfg1, "select * from per order by perno;"
keystat = 0
setkey keystat
End Sub

این کد برنامه مربوط به باتون ذخیره برنامه هست که case1 بطور صحیح اجرا می شه ولی case2 که مربوط به update هست و دیتابیس رو ویرایش می کنه error قسمت بالا رو میده.

bobrus
چهارشنبه 26 دی 1386, 13:28 عصر
ظاهرآُ دستورت درسته نمی دونم چرا ایراد می گیره