连接数据库的问题

xxlzg

请问在excel中通过ado连接数据库，可否知道数据库是否存在某个指定名称的表

可否通过ado把一个数据库中的某表的数据插入到另一数据库中的一张表中？

还有个实际问题，表的格式如下 日期 仓库 零件名称 收发 数量 收发包括收入和发出两个内容，仓库和零件是多对多的关系 我想获得一个月度的统计表，包括月初数，月入库数，月出库数，月末数 我是这样做的先用select sum(数量)group by 仓库，零件名称 生成一张包括所有仓库和零件名的表，让后用它和另一张表（用select sum(数量）group by 仓库，零件名称 where 日期在该月之前，生成）进行左连接，以此类推，再用新表和当月入库的表还有当月出库的表还有月末结存表依次作左连接最终生成月度统计表，请问有没有更好的办法？另外左连接是否只能同时使用两张表，必须依次连接？

ycyhjj2865

这些都可以在数据库做到。有空可以传上相关的例子。

microdirt

请楼上的明示

xxlzg

ycyhjj2865

能讲得详细一点吗？

ycyhjj2865

先回答你第一个问题。

选列出数据库中所有用户表 代码如下：

Public Function ListUserTable() Dim rstSchema As ADODB.Recordset Dim cnn2 As ADODB.Connection Set cnn2 = CurrentProject.Connection Set rstSchema = cnn2.OpenSchema(adSchemaTables) Dim i As Long Do Until rstSchema.EOF If rstSchema("TABLE_TYPE") = "TABLE" Then '对应 TABLE_TYPE 可以取值 "TABLE" "SYSTEM TABLE" "ACCESS TABLE" '在这里我们列出所有用户表的信息，系统表不列出 For i = 0 To rstSchema.Fields.Count - 1 Debug.Print rstSchema(i).Name & "-> " & rstSchema.Fields(i).Value Next End If rstSchema.MoveNext Loop rstSchema.Close cnn2.Close End Function

实际上“rstSchema”相当于一个数据库存放各种对象信息的表，我们在其中提取信息就可以啦。

列出表后你应该对照一下是否有你所要查找的表。这时需要你在DO。。。。LOOP循环中插入一个条件语句IF。。END IF

来判断是否有你所查找的表。然后用MSGBOX函数提示操作用户。就这样，不知你是否理解。最好动手实践一下。

xxlzg

谢谢，后面的问题还请不吝赐教 最后一个问题补充一下，因为每个月的数据只有100条左右，所以几年的数据都储存在一张表上

cg1

关于此主题请参考： 如何判定一个表是否存在？《VBA》 http://access911.net/index.asp?u1=a&u2=77FABE1E1ADC

一个人的街

我想知道如何进行access与excel vba之间的交互，使之对记录的操作维护保持同步．