سلام
چطور بايد كاري كرد كه كمبو باكس گزينه هاشو از ديتا بيس بگيره
سلام
چطور بايد كاري كرد كه كمبو باكس گزينه هاشو از ديتا بيس بگيره
سلام.
SqlConnection conn = new SqlConnection(str_conn);
conn.Open();
SqlDataAdapter DA = new SqlDataAdapter();
DA.SelectCommand = new SqlCommand();
DA.SelectCommand.CommandText = "select * from table1";
DA.SelectCommand.Connection = conn;
DA.SelectCommand.CommandType = CommandType.Text; ;
SqlDataReader reader = DA.SelectCommand.ExecuteReader();
while (reader.Read())
combobox1.Items.Add(reader[1]);
conn.Close();
موفق باشید.
واشه vb6 ميخواستم. اينا واسه c نيست؟
سلام عليکم
ميتونيد از روش زير اينکار رو انجام بديد
شما ارتباط vb رو با اکسس از طريق رابط ADO برقرار کن و يه کمبوباکس اضافه کن و يه کامند دستورات زير رو تو کامند اضافه کن
توجه:در کد زير name همان نام فيلدي است که مقدارهاي آن فيلد درون کمبوباکس اضافه خواهد شد.
On Error Resume Next
Combo2.AddItem Adodc1.Recordset.Fields("name").Value
Adodc1.Recordset.MoveNext
موفق باشيد
توضیح اینکه در فرم 10 ما یک دیتا گذاشتیم که اطلاعاتمون رو وارد بانک میکنهکد HTML:On Error Resume Next Form10.Data2.Refresh Form10.Data3.Refresh Adodc1.Recordset.MoveLast Dim Z, ty, ti As Integer Z = Z + 1 If Z = 1 Then Form10.Data2.Refresh Form10.Data3.Refresh Form10.Data2.Recordset.MoveFirst Do While Form10.Data2.Recordset.EOF = False Form2.Combo5.AddItem (Form10.Data2.Recordset.Fields!ty) Form10.Data2.Recordset.MoveNext Loop Form2.Combo5.Text = Form2.Combo5.List(0) Form10.Data3.Recordset.MoveFirst Do While Form10.Data3.Recordset.EOF = False Form2.Combo6.AddItem (Form10.Data3.Recordset.Fields!ti) Form10.Data3.Recordset.MoveNext Loop Form2.Combo6.Text = Form2.Combo6.List(0) End If
کافیه کنترل Microsoft Data bound list control رو به فرمت اضافه کنی و row source و list field رو تنظیم کنی. البته اینا واسه کنترل DAO هست اگه با ADO کار میکنی باید از Microsoft Datalist control استفاده کنی.