30-04-20, 07:19 PM
30-04-20, 10:43 PM
السلام عليكم اخي الكريم سمير
يمكنك فعل ذلك ولكن تستفيد من الكومبو لاستخدامه في البحث
اي ان الكومبو سيكون للعرض فقط
تابع هذا الموضوع
http://vb4arb.com/vb/showthread.php?tid=34055
يمكنك فعل ذلك ولكن تستفيد من الكومبو لاستخدامه في البحث
اي ان الكومبو سيكون للعرض فقط
تابع هذا الموضوع
http://vb4arb.com/vb/showthread.php?tid=34055
30-04-20, 11:39 PM
تحياتي لك اخي الكريم
لنفرض ان لديك جدول العملاء (Customer_Tbl)ويحتوي على سبيل المثال على ثلاث حقول :
1. رقم العميل(Cus_ID)
2. اسم العميل(CusName)
3. هاتف العميل(CusPhone)
ونريد مثلا اظهار اسم العميل ورقم الهاتف في الكومبوبوكس
الان ما عليك سو استدعاء
في الحدث الذي تريده
ولا تنسى جملة الاتصال بقاعدة البيانات
لنفرض ان لديك جدول العملاء (Customer_Tbl)ويحتوي على سبيل المثال على ثلاث حقول :
1. رقم العميل(Cus_ID)
2. اسم العميل(CusName)
3. هاتف العميل(CusPhone)
ونريد مثلا اظهار اسم العميل ورقم الهاتف في الكومبوبوكس
كود :
Private cmd As New SqlCommand()
Private da As New SqlDataAdapter()
Private dt As New DataTable()
Private Sub FillCBO()
'فتح الاتصال
con.Open()
Try
'جملة السليكت من الجدول
Dim sqlQuery As String = "Select Cus_ID, (CusName + ' ,' + CusPhone ) as 'Name' FROM Customer_Tbl"
cmd = New SqlCommand()
cmd.Connection = Con
cmd.CommandText = sqlQuery
da = New SqlDataAdapter()
da.SelectCommand = cmd
dt = New DataTable()
da.Fill(dt)
comboBox1.DataSource = dt
comboBox1.DisplayMember = "Name"
comboBox1.Text = "Select"
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
da.Dispose()
Con.Close()
End Subالان ما عليك سو استدعاء
كود :
FillCBO()ولا تنسى جملة الاتصال بقاعدة البيانات
كود :
Public ConStr As String = "Data Source= .\SQLEXPRESS;Initial Catalog = database Name;Integrated Security = True"
Public Con As New SqlClient.SqlConnection(ConStr)01-05-20, 02:13 AM
مع الاسف لم انجح
اظن ان الخطاء لدي
النتجية تظهر فارغة
اظن ان الخطاء لدي
النتجية تظهر فارغة
01-05-20, 02:25 AM
ارفق مشروعك وسيتم التعديل عليه