+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : خطأ في تشغيل استعلام (/showthread.php?tid=27607)
خطأ في تشغيل استعلام - alsihran - 23-11-18
السلام عليكم ورحمة الله وبركاتة
يظهر لدي خطأ اثناء تشغيل استعلام تحديث
ولا أعرف سببه
الصورة التالية تبين الخطأ
كود :
Dim cmd As New SqlCommand
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
cmd = New SqlCommand("‘UPDATE INTO TblAccounts SET AccName= @AccName,StartBal= @StartBal where AccID=@AccID", conn)
With cmd.Parameters
.AddWithValue("@AccID", txtAccID.Text).DbType = DbType.Int32
.AddWithValue("@AccName", txtAccName.Text).DbType = DbType.String
.AddWithValue("@StartBal", txtStartBal.Text).DbType = DbType.Double
End With
If conn.State = ConnectionState.Open Then
conn.Close()
End If
conn.Open()
cmd.ExecuteNonQuery()
conn.Close()
frmAcc_Load(Nothing, Nothing)
End Sub
End ClassRE: خطأ في تشغيل استعلام - عبد العزيز البسكري - 23-11-18
السّلام عليكم و رحمة الله و بركاته
قم بحذف الإشارة ( ' ) أخي الكريم
تحياتي
RE: خطأ في تشغيل استعلام - alsihran - 23-11-18
شكرا لاستجابتك اخي الكريم
قمت بحذفها ومازالت المشكلة قائمة
ايضا قمت باعادة ترتيب الجملة التالية
ومازالت المشكلة وهذه ا الرسالة تظهر في استعلام الحذف ايضا
كود :
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
cmd = New SqlCommand("UPDATE INTO TblAccounts SET AccName= @AccName,StartBal= @StartBal where AccID=@AccID", conn)
With cmd.Parameters
.AddWithValue("@AccName", txtAccName.Text).DbType = DbType.String
.AddWithValue("@StartBal", txtStartBal.Text).DbType = DbType.Double
.AddWithValue("@AccID", txtAccID.Text).DbType = DbType.Int32
End With
If conn.State = ConnectionState.Open Then
conn.Close()
End If
conn.Open()
cmd.ExecuteNonQuery()
conn.Close()
frmAcc_Load(Nothing, Nothing)
End SubRE: خطأ في تشغيل استعلام - عبد العزيز البسكري - 23-11-18
عفوا أخي الكريم.. لا يمكن كتابة INTO و UPDATE .. إحذف كلمة INTO
RE: خطأ في تشغيل استعلام - alsihran - 23-11-18
شكر لك تم تنفيذ استعلام التحديث بنجاح
الان المشكلة مازالت قائمة مع استعلام الحذف
كود :
Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
If MsgBox("هل انت متأكد من حذف الحساب", MsgBoxStyle.YesNo) = MsgBoxResult.Yes Then
cmd = New SqlCommand("DELET FROM TblAccounts where AccID=txtAccID.Text", conn)
With cmd.Parameters
End With
If conn.State = ConnectionState.Open Then
conn.Close()
End If
conn.Open()
cmd.ExecuteNonQuery()
conn.Close()
frmAcc_Load(Nothing, Nothing)
End If
End SubRE: خطأ في تشغيل استعلام - عبد العزيز البسكري - 23-11-18
(23-11-18, 05:24 PM)alsihran كتب : شكر لك تم تنفيذ استعلام التحديث بنجاح
الان المشكلة مازالت قائمة مع استعلام الحذف
كود :
Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
If MsgBox("هل انت متأكد من حذف الحساب", MsgBoxStyle.YesNo) = MsgBoxResult.Yes Then
cmd = New SqlCommand("DELET FROM TblAccounts where AccID=txtAccID.Text", conn)
With cmd.Parameters
End With
If conn.State = ConnectionState.Open Then
conn.Close()
End If
conn.Open()
cmd.ExecuteNonQuery()
conn.Close()
frmAcc_Load(Nothing, Nothing)
End If
End Sub
الإستعلام صحيح أخي الكريم فقط قم بتصحيح كلمة DELET لتصبح هكذا DELETE
RE: خطأ في تشغيل استعلام - alsihran - 23-11-18
الف شكر والف تحية اخي الكريم
تم تنفيذ المطلوب