我用的抓数据的excel

允其

大家好，今天刚注册。平时会从四班数据库抓东西，于是写了一个VBA，改改里面的SQL语句就可以提取任何你想要的数据了。还可以做个用户界面，让用户输入条件。和大家分享。 T.xls (87.5 KB, 下载次数: 73)

2010/3/2 23:46 上传

点击文件名下载附件

允其

VBA里的127.0.0.1要改成四班服务器IP，SA密码要设置一下。然后变下面这句就能取数据了。excel2003下不能超过65534条记录。
    strSql = "select ItemNumber,ItemDescription from dbo.FS_Item where ItemKey = 101"

允其

顺便再说一个经历，以前我一直想从数据库抓bom表，自己写过一个递归算法用FS_MultiLevelBillAll视图算出成品的BOM。但是速度很慢，一直让我很郁闷。结果翻四班帮助时看到一段例子代码，就是生成BOM的，速度飞快。让我很高兴。下面贴出来和大家分享。

允其

select m.ParentItemNumber
,m.ParentItemDescription
,m.ParentItemUM
,m.ComponentItemNumber
,m.ComponentItemDescription
,m.ComponentItemUM
,m.RequiredQuantity
,m.BillLevel
from FS_MultiLevelBill('801-00001-99') m
order by m.BillLevelSort

chinzys

有一种方法 建一视图从函数 FS_MultiLevelBill 获数据, 然后DTS生成到另一个数据库的表中.

RUN-UP

FS_MultiLevelBill('801-00001-99') m
这句看不懂，另外，上面附件能做成txt？

FrankXu

真服了你们,这样也行,将FourthShift数据库的密码随意明码方式写在Excel宏代码里,你们公司都不用IT审计吗?
还有,即使要这样访问,访问FSDBMR数据库的用户也只能是只读用户,不能有更大的权限,否则可能一个不小心对FourthShift数据进行了修改.

也可通SSIS (SQL 2005) 或DTS (SQL 2000)导到其它数据库,
最好的办法是做成报表并用ReportSevice发布,可以做到数据库密码不会泄漏,且可以对每个报表进行授权访问.

jhonlone

FS_MultiLevelBill('801-00001-99') m
这句看不懂，另外，上面附件能做成txt？
RUN-UP 发表于 2010/3/3 14:04

    这是调用UDF FS_MultiLevelBill()
    '801-00001-99'是料号
    m是查询结果的别名

另，楼上Frank说得很对

jhonlone

感谢楼主分享

cw1632000

我们公司是直接用access访问四班后台的，excel有记录条数限制，不好用。SQL好用，但IT不肯给我服务器地址和密码，连个只读用户都不肯给我设，晕。。。。

允其

真服了你们,这样也行,将FourthShift数据库的密码随意明码方式写在Excel宏代码里,你们公司都不用IT审计吗?
...
FrankXu 发表于 2010/3/3 18:17

恩，确实有安全问题。实际中我是用vb写成一个小程序给用户用的，用户在输入物料代码，起始结束时间等条件后按一个按钮，一会儿结果会以excel格式给用户。我只是提供一种思路，加密vba并且在SQL里增加一个只读的用户应该可以解决问题。
四班不能提供所有需要的报告，所以才需要自己去做报表。比如有人要列出所有成品的，BOM清单里lead time最长的前三个零件清单，以excel格式给用户。四班没有这个报表，只能自己做了。

shevine

试试看先，计算机一窍不通。

lovepower

SQL查询分析器里的四班模板里的确有太多方便的代码可以直接使用了。
挺棒！

zuminqiang

感谢楼主分享！                              

colin08

直接把这个语句做成报表，让用户输入要打印的父项，即可打印出来， 报表也可以导出成PDF和EXCEL文件，很方便的。 （多层物料反查也可做成这样的功能）。

欣慰

好多银子哦。下载不了。