07-04-13, 06:25 PM
الصفحات : 1 2
07-04-13, 06:35 PM
أنا أقصد :
طريقة تمريرك للمعاملات كانت خاطئة
لو عايز تمرر قيم نصية يجب ان تستخدم العلامه المفردة '
بالنسبة للبارميترز ,, هي أضمن وأكثر امان , وبتاخد راحتك أكثر في كتابتها وممكن تحدد نوع المدخلات لو عايز وممكن تفرغ وتهدم الباراميتر لو عايز ,,
وموجود في المنتدى عشرات الأمثلة عليها .... أبحث ,, بعتذر منك ما عندي وقت الأن .
طريقة تمريرك للمعاملات كانت خاطئة
لو عايز تمرر قيم نصية يجب ان تستخدم العلامه المفردة '
بالنسبة للبارميترز ,, هي أضمن وأكثر امان , وبتاخد راحتك أكثر في كتابتها وممكن تحدد نوع المدخلات لو عايز وممكن تفرغ وتهدم الباراميتر لو عايز ,,
وموجود في المنتدى عشرات الأمثلة عليها .... أبحث ,, بعتذر منك ما عندي وقت الأن .
07-04-13, 07:13 PM
بارك الله فيك
لاكن واجهتني مشكله في الكود التالي :-
لاكن واجهتني مشكله في الكود التالي :-
كود :
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()07-04-13, 07:26 PM
كود :
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
07-04-13, 07:35 PM
ربما كانت المشكلة في إسناد الحقول لأداة الـ ComboBox ورينا الكود الذي تملأ به الأداة الظاهرة في رسالة الخطأ
Combo_no_st
07-04-13, 07:47 PM
هذا هو الكود
كود :
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")07-04-13, 08:37 PM
كود :
[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]جرب وشوف
07-04-13, 08:57 PM
الحمدالله يارب اشتغل الكود هذا بفضل الله ثم بفضل اخوي kslawy
بارك الله فيك
اتمنى لك التوفيق يالغالي
بارك الله فيك
اتمنى لك التوفيق يالغالي
07-04-13, 09:24 PM
الصفحات : 1 2