منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
اريد حلا التخزين في قاعدة البيانات - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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=8311)

الصفحات: 1 2

اريد حلا التخزين في قاعدة البيانات - elmlk - 03-04-13

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
ما هو سبب المشكلة وما هو الحل؟؟

اريد حلا التخزين في قاعدة البيانات - @@أبورائد@@ - 03-04-13


السلام عليكم ورحمة الله وبركاته






جرب هذا لتعديل

كود :
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





السلام عليكم ورحمة الله وبركاته

اريد حلا التخزين في قاعدة البيانات - elmlk - 03-04-13

متشكر جدا يا استاذي ابو رائد على اهتمامك

اريد حلا التخزين في قاعدة البيانات - elmlk - 03-04-13

جربت الكود الجديد واعطني نفس النتيجة saveok = 0
ولم يتم الحفظ
هل المشكل في قاعدة البيانات ام ما هي المشكلة ؟

اريد حلا التخزين في قاعدة البيانات - alimse - 03-04-13

السلام عليكم اخى قومت باستخد اهذى المكبتة و هى هتقوم بعمل الاضافة لوحده بسطر كود واحد فقط و قولى تحل المشكلة ولا لسه
http://vb4arb.com/vb/showthread.php?66-%C7%E1%C7%D5%CF%D1%C7-2-%E3%E4-%E3%DF%CA%C8%C9-alysbisydata-%E1%E1%C7%D6%C7%DD%C9-%E1%DE%C7%DA%CF%C9-%C8%ED%C7%E4%C7%CA-%C7%DF%D3%D3-%E6-%D3%ED%DF%E6%C7%E1

اريد حلا التخزين في قاعدة البيانات - elmlk - 03-04-13

اخي على شكرا على اهتمامك
اريد ان تعطني السنارة و لا تعطني السمكه
اريد ان تفهمني ماهو الخطأ
وانا جربت المكتبة ولكنها لا تسجل اللغة العربية

اريد حلا التخزين في قاعدة البيانات - alimse - 03-04-13

المشكلة عندك اخى هى ان الحقل فى قاعدة البيانات لا يقبل عربى هى دى المشكلة عندك

اريد حلا التخزين في قاعدة البيانات - alimse - 03-04-13

اكيد انت مستخدم قاعدة بيانات سيكوال
افتح الجدوال فى وضع التصميم و اضغط على الحقل و من الخصائيص خليه يدعم الغة العربية بس كده

اريد حلا التخزين في قاعدة البيانات - @@أبورائد@@ - 03-04-13


السلام عليكم ورحمة الله وبركاته




لقد أعتمتد على أن الحقل 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





السلام عليكم ورحمة الله وبركاته

اريد حلا التخزين في قاعدة البيانات - elmlk - 03-04-13

ارجو من حضرتك اعادة كتاب الكود الجديد حضرتك كتبت نفس الكود السابق