[مبرمج أوتار]

بارك الله فيك يا اخ ابو ايهاب

كيف يمكن استخدم

Parameters

ممكن تضع مثال له ....

[Abu Ehab]

أنا أقصد :
طريقة تمريرك للمعاملات كانت خاطئة
لو عايز تمرر قيم نصية يجب ان تستخدم العلامه المفردة '

بالنسبة للبارميترز ,, هي أضمن وأكثر امان , وبتاخد راحتك أكثر في كتابتها وممكن تحدد نوع المدخلات لو عايز وممكن تفرغ وتهدم الباراميتر لو عايز ,,
وموجود في المنتدى عشرات الأمثلة عليها .... أبحث ,, بعتذر منك ما عندي وقت الأن .

[مبرمج أوتار]

بارك الله فيك

لاكن واجهتني مشكله في الكود التالي :-

كود :

Dim sql As String = String.Empty
        sql = (" INSERT INTO Record" & _
              " " & _
              " (  ID,  IDstu)" & _
              " " & _
              " VALUES  " & _
              " ")

        Dim comm As New SqlCommand(sql, sqlconn)
        comm.Parameters.AddWithValue("@ID     ", Me.Combo_no_st.SelectedValue)
        comm.Parameters.AddWithValue("@IDstu ", Me.comb_no_uit.SelectedValue)
        sqlconn.Open()
        comm.ExecuteNonQuery()
        sqlconn.Close()

[مبرمج أوتار]

كود :

Try
            Dim saveok As Boolean
            saveok = winClass.SQLExicute("Insert Into Record (ID,IDstu) values (' & Combo_no_st.SelectedValue & ',' & comb_no_uit.SelectedValue & ')")
            If saveok = True Then
                MsgBox("تمت عملية حفظ البيانات بنجاح", MsgBoxStyle.Exclamation, "تأكيد عملية الحفظ")
      
            End If
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try

بعد تعديل الكود السابق تظهر مشكله

Conversion failed when converting the varchar value ' & Combo_no_st.SelectedValue & ' to data type int

[kslawy]

ربما كانت المشكلة في إسناد الحقول لأداة الـ ComboBox ورينا الكود الذي تملأ به الأداة الظاهرة في رسالة الخطأ

Combo_no_st

[مبرمج أوتار]

هذا هو الكود

كود :

Dim Ds As New DataSet
        Dim Dx As New SqlDataAdapter
        Dim d As New DataTable()


        Dx.SelectCommand = New SqlCommand("Select * From Student", sqlconn)
        Dx.Fill(Ds, "Student")
        d = Ds.Tables(0)
        Combo_no_st.DataSource = d
        Combo_no_st.DisplayMember = "IDstu"
        TextName.DataBindings.Add("Text", d, "Namestu")
        Textmob.DataBindings.Add("Text", d, "Mobilestu")

[kslawy]

كود :

[color=#333333] Combo_no_st.DataSource = d[/color]
[color=#333333]        Combo_no_st.DisplayMember = "IDstu"[/color]

الـ DisplayMember دائما بيسند لها القيمة التي ستظهر للمستخدم مثل اسم الطالب والحقل IDstu حقل رقمي كما هو مبين في مثالك
وشيء آخر ناقص في كودك وهو ValueMember وهو الذي يجب أن تسند له الحقل الرقمي IDstu

ليصبح الكود :

كود :

[/COLOR][/SIZE] Combo_no_st.DataSource = d        Combo_no_st.DisplayMember = "ضع هنا اسم الطالب مثلا"

        Combo_no_st.ValueMember = "IDstu"[SIZE=4][COLOR=#333333]

جرب وشوف

[مبرمج أوتار]

الحمدالله يارب اشتغل الكود هذا بفضل الله ثم بفضل اخوي kslawy

بارك الله فيك

اتمنى لك التوفيق يالغالي

[مبرمج أوتار]