الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

إدخال بيانات ب(صفر)

مغلق
بدأه enjyshahin في 8 يناير 2006 · 10 رد · 773 مشاهدة · في Microsoft Visual Basic.NET
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

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

عندى form لإدخال بيانات من ضمن البيانات إدخال مبالغ مالية وطبعا تدخل عن طريق textbox

الdatabase المستخدمة هى SQL

وفي الtable عملت default constraint للمبالغ المالية ب(صفر) إذا لم يدخل المبلغ

فعندما اضيف اى record جديد في الtable عن طريق الsql يظهر المبلغ ب(صفر)

فهل من الممكن ان اطبق نفس الشئ بالنسبة للform أى اترك الtextbox بدون كتابة أى شئ فيه ؟

حيث اننى عندما افعل دلك تظهر لى رسالة " Input string was not in a correct format."

مع العلم اننى اعرف معنى الرسالة

وطلبى هو الكود وشكرا

أخنكم enjy

يا حى يا قيوم برحمتك أستغيث اصلح لى شأنى كله ولا تكلنى إلى نفسى طرفة عين

اللهم أعنا على ذكرك وشكرك وحسن عبادتك

اللهم انك عفو كريم حليم تحب العفو فاعفو عنا

اللهم إنى أسألك رضاك والجنة وأعوذ بك من سخطك والنار

اللهم إرحمنا فوق الأرض وإرحمنا تحت الأرض وإرحمنا وإعتق رقابنا يوم العرض

اللهم لا تدع لنا ذنبًا إلا غفرته ولا همًا إلا فرجته ولا مريضًا ولا دينًا إلا قضيته ولا عيبا إلا سترته ولا حاجًا هى لك رضا إلا قضيتها

اللهم انى أسألك موجبات رحمتك وعزائم مغفرتك والسلامة من كل إثم والغنيمة من كل بر والفوز بالجنة و النجاة من النار اللهم أمين يا رب العالمين

#2

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

في امر احفظ قبل الحفظ تاكد من txtManyليس به قيمه

if txtMany="" or isnumber(txtMany)=false then txtMany=0

جربي وتاكدي من isnumber انها موجوده او ما شبه ذلك اني اكتب سي شارب لستو حافظ للغة الفيجول.نت

سبحانه الله وبحمده سبحانه الله العظيم

 
if (You Love ArabTeam2000 ) MessageBox.Show("All ArabTeam2000 Love You"); else MessageBox.Show("go to your mama");
 
Make it run, make it right, make it fast, make it small

normalize your data and don't make it look like excel sheet
 
الأبداع في الرأس والعلم في الكراس
روابط مفيدة
[دروس] تجاهل الwhere
طريقة الاضافة للجدولين مرتبطين مرة واحدة
قراءة صوره من مسار
حل مشكلة الارقام العربي في الكريستال ريبورت
حل مشكلة تصدير OLE Object الي Physical File مرة أخري
كود عمل نسخة يومية من قاعدة البيانات بتاريخ مع حذف النسخة السابقة من 30 يوم مضي
معظم دوال التعامل مع string
Change Data Capture
SQL Course
string-format-datetime
LINQ to SQL in C#
Sum-of-previous-row-values-in-SqlServer
alarm-for-stop-agent-service
SQL Server CTE
#3

السلام عليكم

ليست isnumber

هذا هو الكود

If Char.IsDigit(TextBox1.Text) Then

End If

وبالتوفيق

وكل عام وانتم بخير

#4

تصحيحا لكود الاخ كريم

IF NOT ISNumeric(txtMony.Text) OR txtMony.Text="" Then
txtMony.Text="0"
EndIF

VB.NET and C# Comparison

http://www.harding.edu/fmccown/vbnet_csharp_comparison.html

002.gif

=-=-=-=-=-=-=
ذو العلم يشقى فى النعيم بعلمه .:. واخو الجهالة فى الشقاوة ينعم
=-=-=-=-=-=-=
يا من بدنياه اشتغل . قد غره طول الأمل . فالموت يأتى بغتة . والقبر صندوق العمل
=-=-=-=-=-=-=
ان لم تستطع ان تجد ما تفعله فافعل ما لم تسطع ان تجده

screen_shot_2011-05-19_at_12.44.49_pm.pn

#5

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

كل عام وانتم جميعا بخير

شكرا لكل من ساعدنى وانا اسفة على التأخير

ولكن لم يقبل وأعطنى هذه الرسالة

اقتباس
Cast from string "" to type 'Decimal' is not valid.

انا اعلم انه يقصد في هذه الرسالة انه لا يمكن تغيير من string إلى decimal

ولكنى لا اعرف الحل

لقد ارفقت إليكم ال form

وشكرا

يا حى يا قيوم برحمتك أستغيث اصلح لى شأنى كله ولا تكلنى إلى نفسى طرفة عين

اللهم أعنا على ذكرك وشكرك وحسن عبادتك

اللهم انك عفو كريم حليم تحب العفو فاعفو عنا

اللهم إنى أسألك رضاك والجنة وأعوذ بك من سخطك والنار

اللهم إرحمنا فوق الأرض وإرحمنا تحت الأرض وإرحمنا وإعتق رقابنا يوم العرض

اللهم لا تدع لنا ذنبًا إلا غفرته ولا همًا إلا فرجته ولا مريضًا ولا دينًا إلا قضيته ولا عيبا إلا سترته ولا حاجًا هى لك رضا إلا قضيتها

اللهم انى أسألك موجبات رحمتك وعزائم مغفرتك والسلامة من كل إثم والغنيمة من كل بر والفوز بالجنة و النجاة من النار اللهم أمين يا رب العالمين

#6

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

كل عام وانتم جميعا بخير

شكرا لكل من ساعدنى وانا اسفة على التأخير

ولكن لم يقبل وأعطنى هذه الرسالة

اقتباس
Cast from string "" to type 'Decimal' is not valid.

انا اعلم انه يقصد في هذه الرسالة انه لا يمكن تغيير من string إلى decimal

ولكنى لا اعرف الحل

لقد ارفقت إليكم ال form

وشكرا

Insert.rar

يا حى يا قيوم برحمتك أستغيث اصلح لى شأنى كله ولا تكلنى إلى نفسى طرفة عين

اللهم أعنا على ذكرك وشكرك وحسن عبادتك

اللهم انك عفو كريم حليم تحب العفو فاعفو عنا

اللهم إنى أسألك رضاك والجنة وأعوذ بك من سخطك والنار

اللهم إرحمنا فوق الأرض وإرحمنا تحت الأرض وإرحمنا وإعتق رقابنا يوم العرض

اللهم لا تدع لنا ذنبًا إلا غفرته ولا همًا إلا فرجته ولا مريضًا ولا دينًا إلا قضيته ولا عيبا إلا سترته ولا حاجًا هى لك رضا إلا قضيتها

اللهم انى أسألك موجبات رحمتك وعزائم مغفرتك والسلامة من كل إثم والغنيمة من كل بر والفوز بالجنة و النجاة من النار اللهم أمين يا رب العالمين

#7

.Parameters("@py").Value = cint(PaymantTextBox.Text)

سبحانه الله وبحمده سبحانه الله العظيم

 
if (You Love ArabTeam2000 ) MessageBox.Show("All ArabTeam2000 Love You"); else MessageBox.Show("go to your mama");
 
Make it run, make it right, make it fast, make it small

normalize your data and don't make it look like excel sheet
 
الأبداع في الرأس والعلم في الكراس
روابط مفيدة
[دروس] تجاهل الwhere
طريقة الاضافة للجدولين مرتبطين مرة واحدة
قراءة صوره من مسار
حل مشكلة الارقام العربي في الكريستال ريبورت
حل مشكلة تصدير OLE Object الي Physical File مرة أخري
كود عمل نسخة يومية من قاعدة البيانات بتاريخ مع حذف النسخة السابقة من 30 يوم مضي
معظم دوال التعامل مع string
Change Data Capture
SQL Course
string-format-datetime
LINQ to SQL in C#
Sum-of-previous-row-values-in-SqlServer
alarm-for-stop-agent-service
SQL Server CTE
#8

شكرا يا كريم

ولكن لم تنفع معى

واعتقد لان الdatatype للعمود المبلغ هو decimal فى database

فلن يقبل التحويل

وان كنت على خطأ فارشدنى

يا حى يا قيوم برحمتك أستغيث اصلح لى شأنى كله ولا تكلنى إلى نفسى طرفة عين

اللهم أعنا على ذكرك وشكرك وحسن عبادتك

اللهم انك عفو كريم حليم تحب العفو فاعفو عنا

اللهم إنى أسألك رضاك والجنة وأعوذ بك من سخطك والنار

اللهم إرحمنا فوق الأرض وإرحمنا تحت الأرض وإرحمنا وإعتق رقابنا يوم العرض

اللهم لا تدع لنا ذنبًا إلا غفرته ولا همًا إلا فرجته ولا مريضًا ولا دينًا إلا قضيته ولا عيبا إلا سترته ولا حاجًا هى لك رضا إلا قضيتها

اللهم انى أسألك موجبات رحمتك وعزائم مغفرتك والسلامة من كل إثم والغنيمة من كل بر والفوز بالجنة و النجاة من النار اللهم أمين يا رب العالمين

#9 
txtMony.Text = Val("0")

أو لو كانت المخرجات نقود مثلاً:

txtMony.Text = Format(CDec(Val("0")), "c")

رأس الحكمة الإيمان بالله

#10

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

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

وكان الخطأ هو هذا الكود

Dim py As Decimal = PaymantTextBox.Text

فكان سببا فى هذه الرساله

اقتباس
Cast from string "" to type 'Decimal' is not valid.

حيث كان لا يقبل أى أن اترك الtextbox بدون أى قيمة

والكود الذى نفعنى هو

IF NOT ISNumeric(txtMony.Text) OR txtMony.Text="" Then
txtMony.Text="0"
EndIF

شكرا مرة أخرى

يا حى يا قيوم برحمتك أستغيث اصلح لى شأنى كله ولا تكلنى إلى نفسى طرفة عين

اللهم أعنا على ذكرك وشكرك وحسن عبادتك

اللهم انك عفو كريم حليم تحب العفو فاعفو عنا

اللهم إنى أسألك رضاك والجنة وأعوذ بك من سخطك والنار

اللهم إرحمنا فوق الأرض وإرحمنا تحت الأرض وإرحمنا وإعتق رقابنا يوم العرض

اللهم لا تدع لنا ذنبًا إلا غفرته ولا همًا إلا فرجته ولا مريضًا ولا دينًا إلا قضيته ولا عيبا إلا سترته ولا حاجًا هى لك رضا إلا قضيتها

اللهم انى أسألك موجبات رحمتك وعزائم مغفرتك والسلامة من كل إثم والغنيمة من كل بر والفوز بالجنة و النجاة من النار اللهم أمين يا رب العالمين

#11

استخدمى دوال التحويل لتفادى المشاكل

)Dim py As Decimal =CDec( PaymantTextBox.Text

VB.NET and C# Comparison

http://www.harding.edu/fmccown/vbnet_csharp_comparison.html

002.gif

=-=-=-=-=-=-=
ذو العلم يشقى فى النعيم بعلمه .:. واخو الجهالة فى الشقاوة ينعم
=-=-=-=-=-=-=
يا من بدنياه اشتغل . قد غره طول الأمل . فالموت يأتى بغتة . والقبر صندوق العمل
=-=-=-=-=-=-=
ان لم تستطع ان تجد ما تفعله فافعل ما لم تسطع ان تجده

screen_shot_2011-05-19_at_12.44.49_pm.pn

هذا الموضوع مغلق.

مواضيع مشابهة