13-08-18, 04:03 PM
استخدم هذه الدالة :
مثال على كيفية إستدعاء الدالة :
الدالة لها 4 عناصر :
كود :
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"
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
ساهم دائماً فى تقديم
لكل من يقوم بالمساهمة
لكل من يقوم بالمساهمةفى حل اى مشكلة او استفسار
