کار با آرایه ها

[elham.saedi2014]

سلام

من یه combo box دارم که نام کالا رو از دیتابیس میگیره و لیست میکنه این هم کدش :

 ComboBox2.Items.Clear()



            If Connection.State = ConnectionState.Closed Then Connection.Open()

            ad = New SqlDataAdapter("Select name From tblkala", Connection)





            ds = New DataSet

            ad.Fill(ds)





            For i As Integer = 0 To ds.Tables(0).Rows.Count - 1

                Application.DoEvents()

                ComboBox2.Items.Add(ds.Tables(0).Rows(i)(1))

            Next i

            ComboBox2.DataSource = ds.Tables("tblkala")

            Connection.Close()

حالا میخوام آیدی کالای انتخاب شده از combo box رو توی یه label نمایش بدم

لطفا راهنمایی بفرمایید باید چیکار کنم ؟
باتشکر

[elham.saedi2014]

ممنون میشم استاتید سایت کمک کنند

خیلی عججله دارم

باتشکر

[mahdi.m.sh]

سلام
ID کالا داخل همون جدول وجود داره یا باید از جدول دیگه ای خوانده بشه ؟

[elham.saedi2014]

داخل همون جدول وجود داره

[elham.saedi2014]

سلام

واقعا اینقدر سوال من سخته که کسی نمیتونه جوابشو بده ؟

[mahdi.m.sh]

سلام
یه برنامه گذاشتم ، نگاه کنید .
اگر سوالی بود بپرسید.

SelectID.rar

[elham.saedi2014]

سلام واقعا ممنونم خیلی لطف کردید .

سلام
یه برنامه گذاشتم ، نگاه کنید .
اگر سوالی بود بپرسید.

SelectID.rar

اما این کد یه مشکل داره ، اگه دوتا نام تکرار ذخیره شده باشه و آیدی ها متفاوت به مشکل بر میخوره .

من فکر میکنم برا اساس شماره اندیس هر item باید id ها توی یه آرایه ریخته بشه و جستجو بشه اما نمیدونم چطور باید انجامش بدم .

[samiasoft]

سلام

واقعا اینقدر سوال من سخته که کسی نمیتونه جوابشو بده ؟

نه اتفاقا راحت هست جواب سوالتون...ولی جستجو میکردین به راحتی پیدا میشد.

این دستور رو داخل کمبوباکس بزارید :

 Dim cmd As New OleDbCommand        connect.Close()

        connect.Open()

        cmd.CommandText = "select idnumber,name from tblkala WHERE name  = '" + ComboBox1.Text + "' "

        cmd.Connection = connect

        Dim da As OleDbDataReader = cmd.ExecuteReader

        If da.Read = True Then

            Label1.Text = da.Item(0).ToString





            connect.Close()

            Exit Sub

        End If

راستی دستور نمایش در کموباکس رو اینطور هم میتونی بنویسی

 connect.Open()



        strsql = "select name from tblkala "





        da = New OleDbDataAdapter(strsql, connect)





        da.Fill(ds, "tblkala")













        ComboBox1.DataSource = ds.Tables("tblkala")

        ComboBox1.DisplayMember = "name"





        connect.Close()

درمورد خواندن id با دستوری که نوشتیم هربار از دیتابیس بخونه و بهت بده....نظرم اینه وقتی درکموباکس اول نام ها رو لود میکنی همزمان در کمبوباکس دوم هم ایدیها رو لود کنی.....اینطوری دیگه کل ایدیهارو داری و هنگام نمایش از کمبوباکس 2 میتونی نمایش بدی