EXCEL+ACCESS进出存管理系统

GUANCHZH · 发表于 2012-3-2 12:17

附件中的例子是在本论坛中下载的,我想把"单据录入"表中的输入逐步提示的数据源改成ACCESS中"成品资料"表中的数据.请教各位高手如何实现?

EXCEL ACCESS进出存管理系统 .rar (230.88 KB, 下载次数: 3838)

xenoszhou · 发表于 2012-3-2 15:55

用户名和密码没给啊

GUANCHZH · 发表于 2012-3-2 18:59

xenoszhou 发表于 2012-3-2 15:55
用户名和密码没给啊

用户名:张三
密码:123

shuyee · 发表于 2012-3-2 20:59

给你一个查询函数。数据库存放位置你自己写。
Function mdbSource() As Variant
Dim cn As New ADODB.Connection, sql$, cntxt, cnRec As New ADODB.Recordset
cntxt = "Provider=Microsoft.ACE.OLEDB.12.0;Password="""";User ID=Admin;Data Source=C:\temp\出入库系统\出入库系统.mdb;"
cn.Open cntxt
sql = "select 编码,物品名称,规格型号,单位 from 成品资料"
cnRec.Open sql, cn
mdbSource = cnRec.GetRows
cnRec.Close
cn.Close
End Functon
在事件中，修改公用数组的获取方式(下面代码的最后二行)
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim I As Integer, recArr As New ADODB.Recordset
If Target.Count = 1 Then
      If Target.Column = 3 And Target.Row > 5 Then
         With Sheets("基础信息表")
            Myr = .[B65536].End(xlUp).Row
            Arrsj = mdbSource()
            Arrsj=Application.Transpose(Arrsj)
由于Arrsj返回的数组与你原来区域值数组的行列倒置，因此要转置，饶是如此，由于这个数组的下标是从0开始的，仍与你原来的有区别，你再调试吧

GUANCHZH · 发表于 2012-3-3 08:36

shuyee 发表于 2012-3-2 20:59
给你一个查询函数。数据库存放位置你自己写。
Function mdbSource() As Variant
Dim cn As New ADODB ...

感谢前辈的帮助!

GUANCHZH · 发表于 2012-3-3 08:40

shuyee 发表于 2012-3-2 20:59
给你一个查询函数。数据库存放位置你自己写。
Function mdbSource() As Variant
Dim cn As New ADODB ...

感谢前辈的帮助!
本人对VBA代码不悉,还请前辈帮忙调试一下,小弟在此不甚感激!!!!!

shuyee · 发表于 2012-3-3 20:33

再说一遍，你得把mdb文件建在“c:\temp”目录下，或者你修改代码也行。
上次最后一句transpose语句有错，不能直接转置。现在代码里增加了临时数组recArr，并修改了下标。

GUANCHZH · 发表于 2012-3-4 08:10

shuyee 发表于 2012-3-3 20:33
再说一遍，你得把mdb文件建在“c:\temp”目录下，或者你修改代码也行。
上次最后一句transpose语句有错，不 ...

[img]file:///D:/Program%20Files/QQ2007/Users/573902856/Image/IC635Q7%0%U7[IYX[6A~TKY.jpg[/img]
我已经把“c:\temp”目录改成mdb文件存放的路径了,请问版主出现以上提示要怎么调试?

GUANCHZH · 发表于 2012-3-4 08:14

GUANCHZH 发表于 2012-3-4 08:10
我已经把“c:\temp”目录改成mdb文件存放的路径了,请问版主出现以上提示要怎么调试?

截图怎么不行?就是出现"未找到提供程序,该程序可能未正确安装"

GUANCHZH · 发表于 2012-3-4 12:30

shuyee 发表于 2012-3-3 20:33
再说一遍，你得把mdb文件建在“c:\temp”目录下，或者你修改代码也行。
上次最后一句transpose语句有错，不 ...

谢谢版主帮助!该问题已经解决了.还有一个问题是:"当数据库中的成品资料达几千行时,代码运行就非常慢,请问版主代码要怎么写才能提高代码运行速度?

		自动登录	找回密码
密码			免费注册