السلام عليكم ورحمة الله وبركاتة
يظهر لدي خطأ اثناء تشغيل استعلام تحديث
ولا أعرف سببه
الصورة التالية تبين الخطأ
كود :
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 Class
السّلام عليكم و رحمة الله و بركاته
قم بحذف الإشارة ( ' ) أخي الكريم
تحياتي
شكرا لاستجابتك اخي الكريم
قمت بحذفها ومازالت المشكلة قائمة
ايضا قمت باعادة ترتيب الجملة التالية
ومازالت المشكلة وهذه ا الرسالة تظهر في استعلام الحذف ايضا
كود :
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 Sub
عفوا أخي الكريم.. لا يمكن كتابة INTO و UPDATE .. إحذف كلمة INTO
شكر لك تم تنفيذ استعلام التحديث بنجاح
الان المشكلة مازالت قائمة مع استعلام الحذف
كود :
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
(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
الف شكر والف تحية اخي الكريم
تم تنفيذ المطلوب
