Question

EXCLE VBA怎么把数据库里的信息导入到窗口中？意思是创建了一个窗口，里面有五个文本框，现在的

EXCLE VBA怎么把数据库里的信息导入到窗口中？意思是创建了一个窗口，里面有五个文本框，现在的模式是自己填数据，再把文本框里的信息导入到数据库，最后数据库导入到excel表格中。现在嫌填写麻烦，我自己创了一个数据库表格里面有五个文本框里的信息，怎么实现填写第一个文本框的信息，然后从数据库中查找直接吧其余四个文本框里的数据导入到文本框内不需要自己填？

Answer 1

可以用事件函数，当第一文本框的值改变时查找数据库，符合条件的时候返回值到指定文本框。

追问

能告知具体的代码吗？

追答

'这段代码是我之前做的查询窗口的代码 跟你需要的差不多，货品代码 改变时根据货品代码的值 查询商品资料数据库 并返回品名规格等文本框的值，货品代码是下拉框，品名规格、货品类别、计量单位、货品成本是文本框 Private Sub 货品代码_Change() On Error Resume Next Dim i As Integer Dim rst, cnn, stm Dim SQL As String Dim itm As ListItem Set cnn = CreateObject("adodb.connection") Set rst = CreateObject("adodb.recordset") cnn.Open "Provider=microsoft.jet.oledb.4.0;Data Source=D:\a.mdb;Jet Oledb:database password=123456;""" SQL = "select * from 商品资料 where 货品代码='" & 货品代码.Value & "'" rst.Open SQL, cnn, 1, 3 品名规格 = rst!品名规格 货品类别 = rst!货品类别 计量单位 = rst!计量单位 货品成本 = rst!货品成本 rst.Close Set rst = Nothing End Sub