VB中combobox链接ACCESS数据库代码怎么写（带注释）。 5
文件名为data.mdb,表名为GYSZL，取供应商全称下面的数据作为combobox下拉列表的数据...
文件名为data.mdb ,表名为GYSZL，取 供应商全称 下面的数据作为combobox下拉列表的数据
展开
3个回答
展开全部
先查数据库，用ADO控件也好用ODBC也好或者DAO都会有和数据集合。
While Not rs.EOF
Combo1.SelectItem.Add rs.Fields("字段名")
rs.MoveNext
Wend
While Not rs.EOF
Combo1.SelectItem.Add rs.Fields("字段名")
rs.MoveNext
Wend
追问
能否把完整代码写出来（最好带注释），新手不是太懂，正在学习中。
追答
菜单里找到工程，工程里找到部件，部件里找到ADO控件，勾上。从工具箱上把他拖到窗体上，Visible属性设置成隐藏。好了现在就在Form1_Load中写代码：
Adodc1.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="+ACCESS路径（可以是相对路径）
Adodc1.RecordSource="Select Distinct 列1 from 表名 order by 列1"
Adodc1.Refreash
While Not rs.EOF
Combo1.SelectItem.Add rs.Fields("列1")
rs.MoveNext
Wend
这样就齐活。
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
展开全部
可以添加一个公共模块，“工程”-“添加模块”
然后在里面写
Public cn As New ADODB.Connection
Public rs As New ADODB.Recordset
Public Sub OpenConn()
Set cn = New ADODB.Connection
Set rs = New ADODB.Recordset
cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\？？？.mdb;Persist Security Info=False"
cn.Open
rs.ActiveConnection = cn
rs.CursorLocation = adUseClient
End Sub
Public Sub CloseConn()
rs.Close
Set rs = Nothing
cn.Close
Set cn = Nothing
End Sub
要用的时候就 call OpenConn() 不用就关掉 CloseConn()。
然后在里面写
Public cn As New ADODB.Connection
Public rs As New ADODB.Recordset
Public Sub OpenConn()
Set cn = New ADODB.Connection
Set rs = New ADODB.Recordset
cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\？？？.mdb;Persist Security Info=False"
cn.Open
rs.ActiveConnection = cn
rs.CursorLocation = adUseClient
End Sub
Public Sub CloseConn()
rs.Close
Set rs = Nothing
cn.Close
Set cn = Nothing
End Sub
要用的时候就 call OpenConn() 不用就关掉 CloseConn()。
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
展开全部
Dim db As New ADODB.Connection
Dim rs As New ADODB.Recordset
db.Open "数据库连接字符“
If rs.State <> adStateClosed Then rs.Close
rs.Open "select * from 计量单位表", db, 1, 3
If rs.EOF = False And rs.BOF = False Then '下拉菜单里面的内容用计量单位表中的名称
rs.MoveFirst
While Not rs.EOF
Combo1.AddItem rs.Fields("显示的名称")
rs.MoveNext
Wend
End If
放在formload里面
Dim rs As New ADODB.Recordset
db.Open "数据库连接字符“
If rs.State <> adStateClosed Then rs.Close
rs.Open "select * from 计量单位表", db, 1, 3
If rs.EOF = False And rs.BOF = False Then '下拉菜单里面的内容用计量单位表中的名称
rs.MoveFirst
While Not rs.EOF
Combo1.AddItem rs.Fields("显示的名称")
rs.MoveNext
Wend
End If
放在formload里面
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
更多回答（1）
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
|
广告 您可能关注的内容 |
