+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+---- قسم : قسم أسئلة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=28)
+---- الموضوع : سؤال عن الاداء DBCombo1 (/showthread.php?tid=30632)
سؤال عن الاداء DBCombo1 - محمد حمد محمد سليمان - 31-07-19
بسم الله
اريد ربط هذه الاداء بقاعد بيانات اكسس باستخدام الكود وربطها بجدول وحقل
كما في المثال المرفق
ارجو المساعدة
RE: سؤال عن الاداء DBCombo1 - عماني939 - 16-09-19
الحمدلله اخوي لو ممكن تبحث في قسم الامثلة برامج وامثلة كثيرة بخصوص طلبك هذا
وجواب سهل جدا
تسوي Form1 جديد وتدخل في لود للفورم
وتكتب مثلا loadid فقط
بعدها تسوي combo1 وتسمية TxTlName بعدا تغير بيانات DataSet مثل لي معك وConn و SQLTvcustomer
لزم تغير بحسب المطلوب ضروري عشان يشتغل صح
استدعاء Dataset و Sql
Dim DataSetTTvcustomer As New DataSet
Dim SQLTvcustomer As String = "Select * from Expensestype"
public sub : للستدعاء عند فتح الفورم مباشره
Sub loadid()
DataSetTTvcustomer.Clear()
' DataSetTTStaff.Clear()
Conn.Open()
Dim DataAdapterTstaff As New OleDbDataAdapter(SQLTvcustomer, Conn)
DataAdapterTstaff.Fill(DataSetTTvcustomer, "Expensestype")
Conn.Close()
TxTlName.DataSource = DataSetTTvcustomer.Tables(0)
TxTlName.ValueMember = "subject"
TxTlName.DisplayMember = "subject"
End Sub