السلام عليكم و رحمة الله و بركاته
أحبتي في الله
أريد منكم أمرا أراه يسيرا عليكم بإذن الله
أريد منكم كود يقوم بإضافة محتوى المختار من combo box و combo data إلى حقل معين في قاعدة البيانات التي تم ربطها سابقا باستخدام مكتبة ado
و جزاكم الله خيرا
استفسار عن ado و combo box و combo data
مغلق
الارتباط بقاعدة البيانات Set cn = New ADODB.Connection cn.Provider = "microsoft.jet.oledb.4.0" ‘اذا كانت القاعدة من نوع ACCESS cn.ConnectionString = App.Path ‘مسار القاعدة cn.Open Set rs = New ADODB.Recordset rs.Open nametab, cn, adOpenStatic, adLockOptimistic ‘nametab name of table rs.AddNew ‘اضافة معلومة جديدة rs.Fields(x) = datacombo.Text ‘x رقم الحقل ‘or rs.Fields(x) = combobox.Text or.Boundtext rs.update rs.close
السلام عليكم و رحمة الله و بركاته
أخي الحبيب drdidji جزاك الله خيرا
و لكن هذا لم يفلح معي
هذا هو نموذج من برنامجي
في الموديل
Public db As New ADODB.Connection Public rs As New ADODB.Recordset
و في الفورم
عند حدث comman_clic
rs.AddNew If cb1.Text = "" Then Call fail Else rs![mon] = cb1 end if rs.Update
حيث cb1 هو اسم ال combo box
و mon هو اسم العمود المراد اضافة المختار من ال combo box list اليه
قائمة ال combo box تم وضعها من خلال الفورم و ليس عن طريق ربطها باحد أعمدة ال db
و في حدث form load
If db.State = adStateOpen Then db.Close st = "provider=microsoft.jet.oledb.4.0" db.ConnectionString = st db.CursorLocation = adUseClient db.Open App.Path & "\db1.mdb" If rs.State = adStateOpen Then rs.Close If rs1.State = adStateOpen Then rs1.Close rs.Open "pre", db, adOpenDynamic, adLockOptimistic rs1.Open "nr_name", db, adOpenDynamic, adLockOptimistic
أرجو أن أكون أوضحت
و بانتظار ردكم
UP
هذا الموضوع مغلق.