Dim saveok As Boolean saveok = winclass.SQLEXICUTE(" Insert Into Users (username,userpass) Valuse ('" & TextBox1.Text & "'," & TextBox2.Text & " )") If saveok = True Then MsgBox("تمت عملية الاضافة", MsgBoxStyle.Exclamation) TextBox1.Text = "" TextBox2.Text = "" filldatagrid() End If
عندي مشكلة في saveok دائما = false
ما هو سبب المشكلة وما هو الحل؟؟
السلام عليكم ورحمة الله وبركاته
جرب هذا لتعديل
كود :
Dim saveok As Integer
saveok = 0
saveok = winclass.SQLEXICUTE(" Insert Into Users (username,userpass) Valuse ('" & TextBox1.Text & "','" & TextBox2.Text & "' )")
If saveok = 1 Then MsgBox("تمت عملية الاضافة", MsgBoxStyle.Exclamation)
TextBox1.Text = ""
TextBox2.Text = ""
filldatagrid()
End If
السلام عليكم ورحمة الله وبركاته
متشكر جدا يا استاذي ابو رائد على اهتمامك
جربت الكود الجديد واعطني نفس النتيجة saveok = 0
ولم يتم الحفظ
هل المشكل في قاعدة البيانات ام ما هي المشكلة ؟
اخي على شكرا على اهتمامك
اريد ان تعطني السنارة و لا تعطني السمكه
اريد ان تفهمني ماهو الخطأ
وانا جربت المكتبة ولكنها لا تسجل اللغة العربية
المشكلة عندك اخى هى ان الحقل فى قاعدة البيانات لا يقبل عربى هى دى المشكلة عندك
اكيد انت مستخدم قاعدة بيانات سيكوال
افتح الجدوال فى وضع التصميم و اضغط على الحقل و من الخصائيص خليه يدعم الغة العربية بس كده
السلام عليكم ورحمة الله وبركاته
لقد أعتمتد على أن الحقل userpass هو نصي، ولكن حين دققت في ما كتبته أنت يبدو لي رقمي
جرب هذا التعديل بعد العتماد أن حقل userpass رقمي (إذا كنت وضعت On Error قم بتعطيله لمعرفة إذا كان هناك خطأ في جملة الاستعلام)
كود :
Dim saveok As Integer
saveok = 0
saveok = winclass.SQLEXICUTE(" Insert Into Users (username,userpass) Valuse ('" & TextBox1.Text & "'," & TextBox2.Text & " )")
If saveok = 1 Then MsgBox("تمت عملية الاضافة", MsgBoxStyle.Exclamation)
TextBox1.Text = ""
TextBox2.Text = ""
filldatagrid()
End If
السلام عليكم ورحمة الله وبركاته
ارجو من حضرتك اعادة كتاب الكود الجديد حضرتك كتبت نفس الكود السابق