对用友数据库直接使用sql取数的朋友多吗?

鱼之乐

前几天尝试了一下,直接用sql在用友数据库中取数,真是爽死人了
主要表就是gl_accvouch(凭证表),我们所录入进去的数据就汇总在此.

但也遇到一些麻烦,比如 ,记帐都有哪些变化?
辅助项查询还在哪些表中有更改?
等等.....

希望有经验的朋友进来讨论.

鱼之乐

那你帮我打听一下是如何做到取某一个科目的对方科目数据的?
比如"501科目所有对方科目的借方"应如何用sql表达呢?


还有
记帐后都有哪些变化?辅助项查询还在哪些表中有更改?是不是记帐后还是只通过gl_accvouch表就能查询所有帐目?

鱼之乐

我就感觉能从sql中调数据比用友自身的查询功能强多了,看它每次的慢腾腾的样子我真是急死了.

鱼之乐

winak你指你们公司的用友项目工程师还是用友公司的工程师?

我接触过用友的客户服务工程师,他们大多不懂得这些底层的东西的,用友开发工程师大多在北京吧

oceanfly

我用普联的东东，感觉和鱼帮主一样啊。作的查询很低级，但特别实用。用它还可以作凭证审核，例如检查一个凭证里所有单位的对应科目是不是有逻辑性，这样你就可以发现是不是录错的单位~

oceanfly

鱼帮主：
      还想请教。我对VB和SYBASE都不大熟，自己用SQL写了几个语句，每次还得用sybase sql advantage打开，然后把结果贴到excel里去。总觉得挺费劲，要是可以用VBA嵌到excel里去，那是最好了。能不能给个指点。找个例子什么的？谢过。

鱼之乐

To:oceanfly
     终于找到知音了,呵呵

   普联的东东是个什么样的东东呢?介绍一下

    你们用友系统怎么会作的是sybase数据库呢?我只知道用友有access版本和sqlserver版本的,真是孤陋寡闻了

   查询数据库sql是灵魂,具体将结果贴到excel则是小问题了,用vb或者vba都可以做到.

oceanfly

鱼帮主：
      普联是原来浪潮通软那帮人自扯大旗，现在好像主要做石油石化行业。我们用的数据库是sybase的。用这个东东的好处就是软件是针对用户开发的，问题是多了点儿，不过一般像数据结构不怎么保密，只要你问，一般都有人告诉你。我原来在一个用友的代理公司呆过一两个月。那时候还是access版比较多，sqlsever的刚出现。后来这儿也成立了用友的分公司，就像你说的，水平有点儿一般化。金蝶的东西做的也不错，而且好像在安装盘里有个数据库的结构说明。用友类似的东东一直没有发现。

oceanfly

关于你说的对方科目，我是这么认为的。一个凭证中可以有好多科目，可能有一对多（一借多贷）也可能是多对多，所以不大好确定。除非你的凭证是机器自动做的，有很好的规律性。我觉的他不应该是由软件本身确定，而是由具体的凭证确认。也可能是我理解错误。

鱼之乐

gl_accvouch表中的ccode_equal记录是每个分录的对方科目

关于从sql取数转到excel的demo：
Sub readdata()
    Dim conn As ADODB.Connection
    Dim rst As ADODB.Recordset
    Dim NewBook As Workbook
    Dim i As Integer

    ' Create the Connection object.
    Set conn = New ADODB.Connection
    conn.ConnectionString = "Provider=SQLOLEDB.1;Password=mypwd;Persist Security Info=True;User ID=usrid;Initial Catalog=dbaseName ;Data Source=serverName"
    conn.Open
    ' Create a new Recordset Object.
    Set rst = New ADODB.Recordset
     With rst
        ' Connect this recordset to the previously opened connection.
        .ActiveConnection = conn
        ' Retrieve all records from the Customer table.
        .Open "SELECT * FROM tableName"
    End With

    ' Add a new worksheet to this workbook
    Set NewBook = Workbooks.Add
    ' Loop through all of the fields, returning the field names to the worksheet.
    For i = 0 To rst.Fields.Count - 1
        NewBook.Sheets(1).Range("a1").Offset(0, i).Value = rst.Fields(i).Name
    Next i
    ' Copy the recordset to the new worksheet.
    NewBook.Sheets(1).Range("a2").CopyFromRecordset rst

    ' Close the recordset.
    Set rst = Nothing
    ' Close the Connection.
    conn.Close
End Sub