arsalansalar
سه شنبه 17 اردیبهشت 1387, 12:01 عصر
من برای bind کردن بانک به combo از کد زیر استفاده کردم.ولی نمایش نمی دهد.به نظر شما اشکال از کجاست؟
con = New OleDbConnection("provider=microsoft.jet.oledb.4.0 ; data source=" & Application.StartupPath() & "\database.mdb")
con.Open()
Dim da AsNew OleDbDataAdapter("select * from data", con)
Dim ds AsNew DataSet
da.Fill(ds, "text")
co.DataSource = ds
co.DisplayMember = "text"
con = New OleDbConnection("provider=microsoft.jet.oledb.4.0 ; data source=" & Application.StartupPath() & "\database.mdb")
con.Open()
Dim da AsNew OleDbDataAdapter("select * from data", con)
Dim ds AsNew DataSet
da.Fill(ds, "text")
co.DataSource = ds
co.DisplayMember = "text"