الاخطاء كثيرة
احاول اصلح قدر مااستطيع
واعتذر عن التاخير
أظن (كبداية) تحتاج تعديل الاجراء التالي:
بان تمرر اسم الجدول واسم العمود حتى يكون الاجراء فعلي
لاحظ انه عند مناداة الاجراء فهو يطلب عمود قد لا يكون موجود بالجدول المحدد بالاستعلام.
اذا لم تتضح الفكرة اخبرني لكي ارفع لك المثال معدل
احاول اصلح قدر مااستطيع
واعتذر عن التاخير
أظن (كبداية) تحتاج تعديل الاجراء التالي:
PHP كود :
Public Sub fillcmb_tbl_Social_status(ByVal cmb As ComboBox)
Dim DT As New DataTable
Dim DA As New OleDbDataAdapter
DT.Clear()
DA = New OleDbDataAdapter("Select * FROM tbl_Healthy", Con)
DA.Fill(DT)
If DT.Rows.Count > 0 Then
cmb.DataSource = DT
cmb.DisplayMember = "Social_status"
Else
cmb.DataSource = Nothing
End If
End Sub
لاحظ انه عند مناداة الاجراء فهو يطلب عمود قد لا يكون موجود بالجدول المحدد بالاستعلام.
اذا لم تتضح الفكرة اخبرني لكي ارفع لك المثال معدل
اللهم إني أعوذ بك من غلبة الدين وغلبة العدو، اللهم إني أعوذ بك من جهد البلاء ومن درك الشقاء ومن سوء القضاء ومن شماتة الأعداء
اللهم اغفر لي خطيئتي وجهلي، وإسرافي في أمري وما أنت أعلم به مني، اللهم اغفر لي ما قدمت وما أخرت، وما أسررت وما أعلنت وما أنت أعلم به مني، أنت المقدم وأنت المؤخر وأنت على كل شيء قدير
اللهم اغفر لي خطيئتي وجهلي، وإسرافي في أمري وما أنت أعلم به مني، اللهم اغفر لي ما قدمت وما أخرت، وما أسررت وما أعلنت وما أنت أعلم به مني، أنت المقدم وأنت المؤخر وأنت على كل شيء قدير
