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

ما الخطأ في هذا الكود

بدأه Optimus Prim في 6 مايو 2009 · 5 رد · 537 مشاهدة · في Microsoft Visual Basic.NET
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

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

أريد أن أعرف ما الخطأ في هذا الكود

توجد صورة للفورم بالملفات المرفقة

If (RadioButton1.Checked = True) And (RadioButton4.Checked = True) Or (RadioButton5.Checked = True) And (RadioButton2.Checked = True) Or (RadioButton3.Checked = True) And (ComboBox1.SelectedValue = True) Then

Dim insertcommand As New SqlCommand("insert into purchases(Quantity,Kind,Density,color) values('" + TextBox1.Text.Trim() + "','" + RadioButton1.Text + "','" + RadioButton2.Text + "','" + RadioButton3.Text + "','" + RadioButton4.Text + "','" + RadioButton5.Text + "','" + ComboBox1.SelectedItem.ToString + "')", cnn)

Dim insertcomand As New SqlCommand("insert into suppliers(Supplier_name,Company_name,address,tel,Country)values('" + TextBox2.Text.Trim() + "','" + TextBox3.Text.Trim() + "','" + TextBox4.Text.Trim() + "','" + TextBox5.Text.Trim() + "','" + TextBox6.Text.Trim() + "')", cnn)

insertcommand.ExecuteNonQuery()

insertcomand.ExecuteNonQuery()

insertcommand.Dispose()

MessageBox.Show("SAVED")

untitled.rar

تم تعديل هذه المشاركة بواسطة محمد فؤاد تركي في 6 مايو 2009 في 10:51 — السبب: تنسيق الكود

#3

مرحباً أخي الكريم,

مالذي تحاول إضافته إلى الجدول [ Purchases ], أو بالأحرى لماذا تقوم بإدراج جميع نصوص الـ( RadioButtonss ) ؟, اليس من المفروض انتقاء إحداها ؟

حاول شرح فكرة الإختيار لنقوم بمساعدتك, رجاءً قم بكتابة أسماء الـ( RadioBottons ) ونصوصهم, مثال :

RadioButton1 = "Raw Material"

بالتوفيق

The important thing is not so much

that every child should be taught,

as that every child should be given the wish to learn.

#4

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

الخطأ الذي يظهر توجد صورة له بالملفات المرفقة

أما بالنسبة لما أحاول اضافته بالجدول purchases

هو عند اختيار radio button و ليكن raw material

و اختيار radio button أخر و ليكن

low

و الضغط علي الزر

add

يتم اضافتهما في الdatabase

untitled2.rar

#5

أخي بالنسبه بالنسبة لجملة السيكوال انت بتضيف من 7 عناصر وعدد الحقول اللي في الجدول 4

فلسطين .. سوريا ..بورما ......وماذا بعد ؟!

سابقا

medo_programming

موقعي : www.alkhayat-it.com

مواضيع مهمه

-----------------------------------------------:

تعلم كل شىء عن الTriggers

#6

مرحباً أخي الكريم,

في مرفقات مثال بسيط عن كيفية أخذ القيمة المختارة :

 

    [color= #000000; font-weight: bold;]Private Sub BtnGetColor_Click[color= #009900;](ByVal Sender [color= #b1b100;]As [color= #990000;]System[color= #339933;].Object[color= #339933;], [color= #990000;]_

    ByVal E [color= #b1b100;]As [color= #990000;]System[color= #339933;].EventArgs[color= #009900;]) Handles BtnGetColor[color= #339933;].Click

        txtColor[color= #339933;].Text [color= #339933;]= GetSelectedValue[color= #009900;](GBColors[color= #009900;])

    [color= #990000;]End Sub

 

    [color= #000000; font-weight: bold;]Private Sub BtnGetCar_Click[color= #009900;](ByVal Sender [color= #b1b100;]As [color= #990000;]System[color= #339933;].Object[color= #339933;], [color= #990000;]_

    ByVal E [color= #b1b100;]As [color= #990000;]System[color= #339933;].EventArgs[color= #009900;]) Handles BtnGetCar[color= #339933;].Click

        txtCar[color= #339933;].Text [color= #339933;]= GetSelectedValue[color= #009900;](GBCars[color= #009900;])

    [color= #990000;]End Sub

 

    [color= #000000; font-weight: bold;]Private [color= #000000; font-weight: bold;]Function GetSelectedValue[color= #009900;](ByVal GB [color= #b1b100;]As GroupBox[color= #009900;]) [color= #b1b100;]As String

        [color= #b1b100;]For [color= #990000;]Each RB [color= #b1b100;]As RadioButton In GB[color= #339933;].Controls

            [color= #b1b100;]If RB[color= #339933;].Checked Then [color= #b1b100;]Return RB[color= #339933;].Text

        [color= #990000;]Next

        [color= #b1b100;]Return String[color= #339933;].[color= #990000;]Empty

    [color= #990000;]End [color= #000000; font-weight: bold;]Function

ارجو أن يقوم بمساعدتك, إذا أردت مني شرح أي شيء منه, أعلمني

GetSelectedValue.rarبالتوفيق

The important thing is not so much

that every child should be taught,

as that every child should be given the wish to learn.

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