13-08-18, 04:08 PM
طريقة ملئ كومبو بوكس بقواعد البيانات الموجودة على السيرفر
استخدم هذه الدالة :
مثال على كيفية إستدعاء الدالة :
الدالة لها 4 عناصر :
الأول : الكويري : "SELECT * FROM tbPersonnel"
الثاني : إسم العمود في قاعدة البيانات : "Matricule"
الثالث : إسم اكمبوبكس : ComboBoxAddIntervenantPrev
الرابع : إسم العمود في قاعدة البيانات : "Matricule"
دعواتكم بالتوفيق
استخدم هذه الدالة :
كود :
Public Sub Charger_CB(cmd As String, tableau As String, cb As ComboBox, val As String)
Try
If myConnection.State = ConnectionState.Closed Then
myConnection.Open()
End If
ds = New DataSet 'vider ds
Dim da As New OleDbDataAdapter(cmd, myConnection)
da.Fill(ds, tableau)
dv = New DataView(ds.Tables(tableau))
cb.DataSource = dv
cb.ValueMember = val
cb.DisplayMember = val
myConnection.Close()
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Subمثال على كيفية إستدعاء الدالة :
كود :
Charger_CB("SELECT * FROM tbPersonnel", "Matricule", ComboBoxAddIntervenantPrev, "Matricule")الدالة لها 4 عناصر :
الأول : الكويري : "SELECT * FROM tbPersonnel"
الثاني : إسم العمود في قاعدة البيانات : "Matricule"
الثالث : إسم اكمبوبكس : ComboBoxAddIntervenantPrev
الرابع : إسم العمود في قاعدة البيانات : "Matricule"
دعواتكم بالتوفيق
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
ساهم دائماً فى تقديم 
لكل من يقوم بالمساهمة
لكل من يقوم بالمساهمةفى حل اى مشكلة او استفسار لديك مع اضافة رد بشكره ودعوة له
فالجميع هنا يعمل على مساعدة الاخرين لوجه الله وان تحتسب له اجر عند الله