المشاركات : 675
المواضيع 68
الإنتساب : Oct 2012
السمعة :
1
الشكر: 38
تم شكره 68 مرات في 13 مشاركات
السلام عليكم ورحمة الله وبركاته
اخواني انا عندي برنامج ومتصل بقاعدة SQL Server
وعندي فراغات Textbox وعندما اريد ان اضيف بيانات جديدة لا اريد استخدام بعض فراغات Textbox فعندما احفظ بدون ما اسجل في بعض الفراغات
تظاف في قاعدة البيانات على اسم BNull وهذا الفراغ الفاضي ،،،
وعندما اقفل البرنامج وافتحه تظهر لي مشكلة في قاعدة البيانات بسببها BNull
فما هو الحل لكي استطيع استخدام بعض الفراغات بدون مشاكل ؟
المشاركات : 521
المواضيع 28
الإنتساب : Sep 2012
السمعة :
14
الشكر: 153
تم شكره 317 مرات في 108 مشاركات
لاحظتها كلمة BNull ولاكن لا يحدث مشكلة عندي عند إغلاق البرنامج :confused:
تأكد من عدم ترك حقل الذي يحتوي على المفتاح فارغ
أما من ناحية الحقول الأخرى فالطبيعي انه لا يحدث مشكله ؟!
<---------------------------------------------------------------->
المشاركات : 675
المواضيع 68
الإنتساب : Oct 2012
السمعة :
1
الشكر: 38
تم شكره 68 مرات في 13 مشاركات
06-03-13, 04:16 PM
(آخر تعديل لهذه المشاركة : 06-03-13, 04:21 PM {2} بواسطة ahmed mohamed soliman.)
Easy 4ever كتب :لاحظتها كلمة BNull ولاكن لا يحدث مشكلة عندي عند إغلاق البرنامج :confused:
[COLOR="#FF0000"]
اخي ليس عند الإغلاق بل عندما تضيف خانات فاضية يعني يكون في قاعدة البيانات
BNull و تفتح البرنامج يظهر خطأ في قاعدة البيانات ،،، وعندما تمسح المستخدم الموجود به فراغات BNull في قاعدة البيانات وتفتح البرنامج مره اخرى يزول الخطأ[/COLOR]
Easy 4ever كتب :[b][SIZE=4]
تأكد من عدم ترك حقل الذي يحتوي على المفتاح فارغ
[COLOR="#FF0000"]
ما فهمت وش تقصد ؟ ،،
اذا تقصد انه يلزمني اني اضيف نص او رقم في احد فراغات
فانا لا اريد هذا الشئ وهذه مشكلتي لا اريد الزام الشخص بتعبئة كل البيانات TextBbox
[/b][/SIZE]
[/COLOR]
المشاركات : 7,391
المواضيع 803
الإنتساب : Sep 2013
السمعة :
846
الشكر: 13249
تم شكره 18795 مرات في 4414 مشاركات
ماذا تقصد بالفراغ؟
هل تقصد يعني مربع نص لايحتوي شيء وتريد اضافة مابه الى القاعدة؟
اجعل خيار Allownull مسموح به في القاعدة
ثم الحق لخاصة Text لمربع النص الجملة التالية:
نقطة ثم Tostring
وعند استقبال القيمة الفارغة استخدم نفس الطريقة
المشاركات : 675
المواضيع 68
الإنتساب : Oct 2012
السمعة :
1
الشكر: 38
تم شكره 68 مرات في 13 مشاركات
سعود كتب :ماذا تقصد بالفراغ؟
هل تقصد يعني مربع نص لايحتوي شيء وتريد اضافة مابه الى القاعدة؟
اجعل خيار Allownull مسموح به في القاعدة
ثم الحق لخاصة Text لمربع النص الجملة التالية:
نقطة ثم Tostring
وعند استقبال القيمة الفارغة استخدم نفس الطريقة
اخي لم افهم كيف اخير خاصية Allownull ... وايضا اين اكتب كود
ياليت لو سمحت توضح لي ،،،
وايضا ما اقصده هو :
الان مثلا تملك ثلاث ادوات تكست (فراغات) = (اسم - رقم - ايميل ) الان مثلا اريد فقط تسجيل اسم والرقم ولا اريد تسجيل الايميل ،،
الان عن الحفظ راح يسجل قيمة الاسم والرقم لكن الايميل راح يظيفه باسم BNull ,,, كيف اجعله لا يظيفه .. لانه يسبب لي مشكلة عند فتح البرنامج يظهر لي
مشكلة في استوراد النصوص BNull طبعا اريده بحيث انه لا يظهر شئ في اداة TextBox الخاصه بالايميل عن الاستيراد ..
والف شكر،،
المشاركات : 7,391
المواضيع 803
الإنتساب : Sep 2013
السمعة :
846
الشكر: 13249
تم شكره 18795 مرات في 4414 مشاركات
فاهم عليك اخوي خذ مثال:
كود :
email.text=dr.item("email").tostring
بهذه الطريقة مهما كان محتوى حقل الـ email فارغ او يحتوي شيء لن تظهر رسالة خطا وهذا عن تجربة وانا الان اعمل عليها.
المشاركات : 901
المواضيع 34
الإنتساب : Nov 2012
السمعة :
65
الشكر: 517
تم شكره 1181 مرات في 245 مشاركات
السلام عليكم ورحمة الله وبركاته
ممكن تكتب لنا كود الحفظ لأني أعتقد أنك استخدمت أسلوب خاطئ.
السلام عليكم ورحمة الله وبركاته
المشاركات : 675
المواضيع 68
الإنتساب : Oct 2012
السمعة :
1
الشكر: 38
تم شكره 68 مرات في 13 مشاركات
07-03-13, 02:07 AM
(آخر تعديل لهذه المشاركة : 07-03-13, 02:15 AM {2} بواسطة ahmed mohamed soliman.)
سعود كتب :فاهم عليك اخوي خذ مثال:
كود :
email.text=dr.item("email").tostring
بهذه الطريقة مهما كان محتوى حقل الـ email فارغ او يحتوي شيء لن تظهر رسالة خطا وهذا عن تجربة وانا الان اعمل عليها.
[COLOR="#FF0000"]
يعطيك العافية ،، لكن اين اضعه ؟ .. [/COLOR]
المشاركات : 675
المواضيع 68
الإنتساب : Oct 2012
السمعة :
1
الشكر: 38
تم شكره 68 مرات في 13 مشاركات
@@أبورائد@@ كتب :السلام عليكم ورحمة الله وبركاته
ممكن تكتب لنا كود الحفظ لأني أعتقد أنك استخدمت أسلوب خاطئ.
السلام عليكم ورحمة الله وبركاته
ما اعتقد ،، لان الكود يظيف بشكل ممتاز ،،، ،هذا هو كود الاضافة ( مرتب بشكل صحيح )
كود :
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
' Add New Record
Conn.Open()
Dim Cmd As New SqlCommand("insert into Table1 (UserName,MobileNumber,Date,Price,Rest,Recipient,NameShop,PlaceShop,UserShop,Email,NumberDresses,ColorDress1,TypeCloth1,TypeDesign1,TypePocket1,IDCloth1,LengthM1,LengthY1,ColorDress2,TypeCloth2,TypeDesign2,TypePocket2,IDCloth2,LengthM2,LengthY2,ColorDress3,TypeCloth3,TypeDesign3,TypePocket3,IDCloth3,LengthM3,LengthY3,LengthDress,DisplayKtf,DisplayDress,LengthKmSadh,LengthKmKbk,DisplayKmSadh1,DisplayKmSadh2,DisplayKmSadh3,DisplayKmKbk1,DisplayKmKbk2,DisplayKmKbk3,RakbhKllab1,RakbhKllab2,RakbhSadh1,RakbhSadh2,DownDress1,DownDress2,LengthKbzor,Other) values ( '" & Trim(TextBox1.Text) & "' , " & Val(TextBox2.Text) & " , '" & Trim(TextBox7.Text) & "' , " & Val(TextBox45.Text) & " , " & Val(TextBox46.Text) & " , " & Val(TextBox47.Text) & " , '" & Trim(TextBox4.Text) & "' , '" & Trim(TextBox5.Text) & "' , '" & Trim(TextBox6.Text) & "' , '" & Trim(TextBox3.Text) & "' , " & Val(TextBox71.Text) & " , '" & Trim(TextBox8.Text) & "' , '" & Trim(TextBox9.Text) & "' , '" & Trim(TextBox10.Text) & "' , '" & Trim(TextBox11.Text) & "' , " & Val(TextBox20.Text) & " , " & Val(TextBox21.Text) & " , " & Val(TextBox87.Text) & " , '" & Trim(TextBox15.Text) & "' , '" & Trim(TextBox14.Text) & "' , '" & Trim(TextBox13.Text) & "' , '" & Trim(TextBox12.Text) & "' , " & Val(TextBox22.Text) & " , " & Val(TextBox23.Text) & " , " & Val(TextBox88.Text) & " , '" & Trim(TextBox19.Text) & "' , '" & Trim(TextBox18.Text) & "' , '" & Trim(TextBox17.Text) & "' , '" & Trim(TextBox16.Text) & "' , " & Val(TextBox24.Text) & " , " & Val(TextBox25.Text) & " , " & Val(TextBox89.Text) & " , " & Val(TextBox26.Text) & " , " & Val(TextBox27.Text) & " , " & Val(TextBox28.Text) & " , " & Val(TextBox29.Text) & " , " & Val(TextBox30.Text) & " , " & Val(TextBox31.Text) & " , " & Val(TextBox32.Text) & " , " & Val(TextBox33.Text) & " , " & Val(TextBox34.Text) & " , " & Val(TextBox35.Text) & " , " & Val(TextBox36.Text) & " , " & Val(TextBox37.Text) & " , " & Val(TextBox39.Text) & " , " & Val(TextBox40.Text) & " , " & Val(TextBox41.Text) & " , " & Val(TextBox42.Text) & " , " & Val(TextBox43.Text) & " , " & Val(TextBox44.Text) & " , '" & Trim(TextBox38.Text) & "' )", Conn)
Cmd.ExecuteNonQuery()
RefreshListView()
End Sub
المشاركات : 901
المواضيع 34
الإنتساب : Nov 2012
السمعة :
65
الشكر: 517
تم شكره 1181 مرات في 245 مشاركات
07-03-13, 02:58 AM
(آخر تعديل لهذه المشاركة : 07-03-13, 04:01 AM {2} بواسطة Moo00ooN.)
السلام عليكم ورحمة الله وبركاته
جرب ترتيبي! وأخبرني
PHP كود :
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click ' Add New Record Try Dim sql As String = " INSERT INTO Table1 " & _ " ( UserName " & _ " , MobileNumber " & _ " , Date " & _ " , Price " & _ " , Rest " & _ " , Recipient " & _ " , NameShop " & _ " , PlaceShop " & _ " , UserShop " & _ " , Email " & _ " , NumberDresses " & _ " , ColorDress1 " & _ " , TypeCloth1 " & _ " , TypeDesign1 " & _ " , TypePocket1 " & _ " , IDCloth1 " & _ " , LengthM1 " & _ " , LengthY1 " & _ " , ColorDress2 " & _ " , TypeCloth2 " & _ " , TypeDesign2 " & _ " , TypePocket2 " & _ " , IDCloth2 " & _ " , LengthM2 " & _ " , LengthY2 " & _ " , ColorDress3 " & _ " , TypeCloth3 " & _ " , TypeDesign3 " & _ " , TypePocket3 " & _ " , IDCloth3 " & _ " , LengthM3 " & _ " , LengthY3 " & _ " , LengthDress " & _ " , DisplayKtf " & _ " , DisplayDress " & _ " , LengthKmSadh " & _ " , LengthKmKbk " & _ " , DisplayKmSadh1 " & _ " , DisplayKmSadh2 " & _ " , DisplayKmSadh3 " & _ " , DisplayKmKbk1 " & _ " , DisplayKmKbk2 " & _ " , DisplayKmKbk3 " & _ " , RakbhKllab1 " & _ " , RakbhKllab2 " & _ " , RakbhSadh1 " & _ " , RakbhSadh2 " & _ " , DownDress1 " & _ " , DownDress2 " & _ " , LengthKbzor " & _ " , Other ) " & _ " VALUES " & _ " ( @UserName " & _ " , @MobileNumber " & _ " , @Date " & _ " , @Price " & _ " , @Rest " & _ " , @Recipient " & _ " , @NameShop " & _ " , @PlaceShop " & _ " , @UserShop " & _ " , @Email " & _ " , @NumberDresses " & _ " , @ColorDress1 " & _ " , @TypeCloth1 " & _ " , @TypeDesign1 " & _ " , @TypePocket1 " & _ " , @IDCloth1 " & _ " , @LengthM1 " & _ " , @LengthY1 " & _ " , @ColorDress2 " & _ " , @TypeCloth2 " & _ " , @TypeDesign2 " & _ " , @TypePocket2 " & _ " , @IDCloth2 " & _ " , @LengthM2 " & _ " , @LengthY2 " & _ " , @ColorDress3 " & _ " , @TypeCloth3 " & _ " , @TypeDesign3 " & _ " , @TypePocket3 " & _ " , @IDCloth3 " & _ " , @LengthM3 " & _ " , @LengthY3 " & _ " , @LengthDress " & _ " , @DisplayKtf " & _ " , @DisplayDress " & _ " , @LengthKmSadh " & _ " , @LengthKmKbk " & _ " , @DisplayKmSadh1 " & _ " , @DisplayKmSadh2 " & _ " , @DisplayKmSadh3 " & _ " , @DisplayKmKbk1 " & _ " , @DisplayKmKbk2 " & _ " , @DisplayKmKbk3 " & _ " , @RakbhKllab1 " & _ " , @RakbhKllab2 " & _ " , @RakbhSadh1 " & _ " , @RakbhSadh2 " & _ " , @DownDress1 " & _ " , @DownDress2 " & _ " , @LengthKbzor " & _ " , @Other ) "
Dim Cmd As New SqlCommand(sql, Conn)
Cmd.Parameters.AddWithValue("@UserName ", txtUserName.Text) Cmd.Parameters.AddWithValue("@MobileNumber ", txtMobileNumber.Text) Cmd.Parameters.AddWithValue("@Date ", txtDate.Text) Cmd.Parameters.AddWithValue("@Price ", txtPrice.Text) Cmd.Parameters.AddWithValue("@Rest ", txtRest.Text) Cmd.Parameters.AddWithValue("@Recipient ", txtRecipient.Text) Cmd.Parameters.AddWithValue("@NameShop ", txtNameShop.Text) Cmd.Parameters.AddWithValue("@PlaceShop ", txtPlaceShop.Text) Cmd.Parameters.AddWithValue("@UserShop ", txtUserShop.Text) Cmd.Parameters.AddWithValue("@Email ", txtEmail.Text) Cmd.Parameters.AddWithValue("@NumberDresses ", txtNumberDresses.Text) Cmd.Parameters.AddWithValue("@ColorDress1 ", txtColorDress1.Text) Cmd.Parameters.AddWithValue("@TypeCloth1 ", txtTypeCloth1.Text) Cmd.Parameters.AddWithValue("@TypeDesign1 ", txtTypeDesign1.Text) Cmd.Parameters.AddWithValue("@TypePocket1 ", txtTypePocket1.Text) Cmd.Parameters.AddWithValue("@IDCloth1 ", txtIDCloth1.Text) Cmd.Parameters.AddWithValue("@LengthM1 ", txtLengthM1.Text) Cmd.Parameters.AddWithValue("@LengthY1 ", txtLengthY1.Text) Cmd.Parameters.AddWithValue("@ColorDress2 ", txtColorDress2.Text) Cmd.Parameters.AddWithValue("@TypeCloth2 ", txtTypeCloth2.Text) Cmd.Parameters.AddWithValue("@TypeDesign2 ", txtTypeDesign2.Text) Cmd.Parameters.AddWithValue("@TypePocket2 ", txtTypePocket2.Text) Cmd.Parameters.AddWithValue("@IDCloth2 ", txtIDCloth2.Text) Cmd.Parameters.AddWithValue("@LengthM2 ", txtLengthM2.Text) Cmd.Parameters.AddWithValue("@LengthY2 ", txtLengthY2.Text) Cmd.Parameters.AddWithValue("@ColorDress3 ", txtColorDress3.Text) Cmd.Parameters.AddWithValue("@TypeCloth3 ", txtTypeCloth3.Text) Cmd.Parameters.AddWithValue("@TypeDesign3 ", txtTypeDesign3.Text) Cmd.Parameters.AddWithValue("@TypePocket3 ", txtTypePocket3.Text) Cmd.Parameters.AddWithValue("@IDCloth3 ", txtIDCloth3.Text) Cmd.Parameters.AddWithValue("@LengthM3 ", txtLengthM3.Text) Cmd.Parameters.AddWithValue("@LengthY3 ", txtLengthY3.Text) Cmd.Parameters.AddWithValue("@LengthDress ", txtLengthDress.Text) Cmd.Parameters.AddWithValue("@DisplayKtf ", txtDisplayKtf.Text) Cmd.Parameters.AddWithValue("@DisplayDress ", txtDisplayDress.Text) Cmd.Parameters.AddWithValue("@LengthKmSadh ", txtLengthKmSadh.Text) Cmd.Parameters.AddWithValue("@LengthKmKbk ", txtLengthKmKbk.Text) Cmd.Parameters.AddWithValue("@DisplayKmSadh1", txtDisplayKmSadh1.Text) Cmd.Parameters.AddWithValue("@DisplayKmSadh2", txtDisplayKmSadh2.Text) Cmd.Parameters.AddWithValue("@DisplayKmSadh3", txtDisplayKmSadh3.Text) Cmd.Parameters.AddWithValue("@DisplayKmKbk1 ", txtDisplayKmKbk1.Text) Cmd.Parameters.AddWithValue("@DisplayKmKbk2 ", txtDisplayKmKbk2.Text) Cmd.Parameters.AddWithValue("@DisplayKmKbk3 ", txtDisplayKmKbk3.Text) Cmd.Parameters.AddWithValue("@RakbhKllab1 ", txtRakbhKllab1.Text) Cmd.Parameters.AddWithValue("@RakbhKllab2 ", txtRakbhKllab2.Text) Cmd.Parameters.AddWithValue("@RakbhSadh1 ", txtRakbhSadh1.Text) Cmd.Parameters.AddWithValue("@RakbhSadh2 ", txtRakbhSadh2.Text) Cmd.Parameters.AddWithValue("@DownDress1 ", txtDownDress1.Text) Cmd.Parameters.AddWithValue("@DownDress2 ", txtDownDress2.Text) Cmd.Parameters.AddWithValue("@LengthKbzor ", txtLengthKbzor.Text) Cmd.Parameters.AddWithValue("@Other ", txtOther.Text)
Conn.Open() Cmd.ExecuteNonQuery() Conn.Close()
Catch ex As Exception MsgBox(ex.Message) End Try
RefreshListView()
End Sub
السلام عليكم ورحمة الله وبركاته
|