Question

vb.net2013的combobox控件如何用纯代码链接access数据库

我试了一下以下的方法不行Private Sub dengru_Load(sender As Object, e As EventArgs) Handles MyBase.Load Dim Conn As New OleDb.OleDbConnection Dim Comm As New OleDb.OleDbCommand Dim da As OleDb.OleDbDataAdapter Dim ds As New DataSet Dim strSQL As String Conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=X:\qydata\qybg.mdb" strSQL = "Select 用户名 From 用户表"Conn.Open() Comm.Connection = Conn Comm.CommandText = strSQL da = New OleDb.OleDbDataAdapter(Comm) da.Fill(ds, "用户表")Conn.Close() Me.ComboBox1.DataSource = ds Me.ComboBox1.Valuemember = "用户名"End SubEnd Class

到 Me.ComboBox1.DataSource = ds 这一句出错

Answer 1

首先要查看ds是否存在而且是否有表及数据如果都正常则
应该绑定DS里面的某个表如:ds.Tables(0);
下面作个简单示例，与你之上的写法不足作比较
Dim cc As ComboBox = New ComboBox
cc.Parent = Me
Dim 数据表 As New DataSet()
数据表.Tables.Add()
Dim aa As DataTable = 数据表.Tables(0)
aa.Columns.Add("lb")
aa.Rows.Add("a")
aa.Rows.Add("b")
'Dim dd As BindingSource = New BindingSource()
'dd.DataSource = 数据表.Tables(0)
'cc.DataSource = dd
cc.DataSource = 数据表.Tables(0)
cc.DisplayMember = "lb"
cc.Text = "a"

追问

怎么绑定？请指教，谢谢啦

追答

?!
之上已经给了例子,你只要复制代码运行就知道了,就是绑定的例子,而且注释的就是另一种绑定方法.
要测试另一种绑定方法,只要把cc.DataSource = 数据表.Tables(0)这句注释掉,把注释的三句解注就可以运行了.

追问

不懂你的意思？

追答

我都晕乎,才不懂你什么意思,你不是要控件绑定的例子?之上代码就是例子,而且给你说了如何测试2种例子.