请教如何从ACCESS数据库中读取数值生成窗体列表

danhanqing

练习.rar (183.2 KB, 下载次数: 16)

2017-7-24 15:27 上传

点击文件名下载附件

请教如何从ACCESS数据库中读取数值生成窗体列表。
具体说明在文件里，请老师们指教！谢谢！

uynayna

连接部分自己写吧，论坛上一大堆。

uynayna

没有插入数据，因为已经给你

danhanqing

uynayna 发表于 2017-7-25 23:21
没有插入数据，因为已经给你

非常感谢老师指点，我学习一下！

danhanqing

uynayna 发表于 2017-7-25 23:18
连接部分自己写吧，论坛上一大堆。

非常感谢老师指点，我学习一下！

danhanqing

Private Sub UserForm_Initialize()
Call LinkDate(conn)
SQL = "select 单位名称 from 往来通讯总表 group by 单位名称"
rs.Open SQL, conn, 1, 3
Do While Not rs.EOF
单位名称.AddItem rs.Fields("单位名称")
rs.MoveNext
Loop
conn.Close
Set rs = Nothing
End Sub

Private Sub 单位名称_Keydown(ByVal Keycode As MSForms.ReturnInteger, ByVal shift As Integer)
Call LinkDate(conn)
SQL = "select 联系人,联系电话 from 往来通讯总表 where 单位名称='" & 单位名称.Text & "'"
rs.Open SQL, conn, 1, 3
联系人.Text = rs.Fields("联系人")
conn.Close
Set rs = Nothing
End Sub

下面这段我写在模块里的
Sub linkDate(conn)
Dim cnn As New ADODB.Connection
    Dim SQL As String
    cnn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & ThisWorkbook.Path & "\新纪元管理数据库.accdb"
End Sub

但是没有效果，刚开始学习，请老师多指教！

uynayna

conn 和cnn.open肯定没有效果啊。

danhanqing

uynayna 发表于 2017-7-27 19:20
conn 和cnn.open肯定没有效果啊。

Private Sub UserForm_Initialize()
Call LinkDate(conn)
SQL = "select 单位名称 from 往来通讯总表 group by 单位名称"
rs.Open SQL, conn, 1, 3
Do While Not rs.EOF
单位名称.AddItem rs.Fields("单位名称")
rs.MoveNext
Loop
conn.Close
Set rs = Nothing
End Sub

Private Sub 单位名称_Keydown(ByVal Keycode As MSForms.ReturnInteger, ByVal shift As Integer)
Call LinkDate(conn)
SQL = "select 联系人,联系电话 from 往来通讯总表 where 单位名称='" & 单位名称.Text & "'"
rs.Open SQL, conn, 1, 3
联系人.Text = rs.Fields("联系人")
conn.Close
Set rs = Nothing
End Sub

Sub LinkDate(conn)
Dim conn As ADODB.Connection
Dim SQL As String
conn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & ThisWorkbook.Path & "\新纪元管理数据库.accdb"
End Sub

后来我也发现这个问题了，但改完后，提示当前范围内的声明重复，我找了个遍也没找出错在哪里！请指教！

danhanqing

Private Sub UserForm_Initialize()
Dim conn As Object, SQL$
Set conn = CreateObject("ADODB.Connection")
conn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & ThisWorkbook.Path & "\新纪元管理数据库.mdb"
SQL = "select 单位名称 from 往来通讯总表 group by 单位名称"
rs.Open SQL, conn, 1, 3
Do While Not rs.EOF
单位名称.AddItem rs.Fields("单位名称")
rs.MoveNext
Loop
conn.Close
Set rs = Nothing
End Sub

提示要求对象

uynayna

回车显示联系人和电话。