如何在VB环境对SQL SERVER 2000 数据库进行查询后输出的数据会自动编号？

foshan · 发表于 2006-3-17 11:01

以下的代码是想实现将数据表—MYJL 中字段甲方单位等于A 的数据导出到EXCEL工作表中。请教大家：在查询后导入EXCEL工作表前，如何实现查询出来的记录集中的 “序号” 列会自动编号(1、2、3、4……)？谢谢大家! Sql=”select null as 序号,工程名称,甲方单位,乙方单位 form MYJL where 甲方单位=’A’”

ycyhjj2865 · 发表于 2006-3-17 16:07

有两种方法一种是在ACCESS中用查询完成编号，另一种是在excel中用循环语句来完成编号。下面上传一个在ACCESS查询完成编号的方法，值得研究。实例下载：

u87ukvYu.rar (36.82 KB, 下载次数: 51)

foshan · 发表于 2006-3-19 19:25

谢谢ycyhjj2865! 您上传的示例中的以下代码中的 “select count(t.[id]) from [tblfeed] t where t.[id]” 中的“t.”代表什么？？？

SELECT (select count(t.[id]) from [tblfeed] t where t.[id]<=[tblfeed].[id]) AS 序号, [tblFeed].[Feed], [tblFeed].[FeedEng], [tblFeed].[FeedDescription]
FROM tblFeed;

[此贴子已经被作者于2006-3-19 19:26:39编辑过]

ycyhjj2865 · 发表于 2006-3-20 11:25

可以T也可以其他，你试试换成其他变量。

本解决方案来源不清楚，我想应该来自微软。T理解如下：

T代表当前查询，t.[id] 代表在当前查询语句中创建的一个[id]字段。

foshan · 发表于 2006-3-20 14:49

如何将ACCESS中的查询代码应用到 EXCEL 或 VB 中，实现在 EXCEL 或 VB 中通过 ADO 对数据库进行查询及数据输出？直接将代码应用到 EXCEL 或 VB 中时遇到错误(见图)，请大家再帮忙解决这个问题，谢谢大家! Sub connection2() Dim CNN As New ADODB.connection Dim rs As New ADODB.Recordset Dim pthStr As String Dim sql As String pthStr = ThisWorkbook.Path & Application.PathSeparator & "db1.mdB" CNN.Open "provider=Microsoft.jet.OLEDB.4.0;data source=" & pthStr sql = "select (select count(t.[ID]) from 表1 t where t.[ID]<=表1.[ID]) AS 序号,施工单位,sum(工程造价) as 工程造价,sum(累计付款) as 累计付款,sum(工程造价-累计付款) as 余额 from 表1 group by 施工单位" rs.Open sql, CNN, adOpenKeyset, adLockOptimistic icount = rs.Fields.Count For i = 0 To icount - 1 Cells(1, i + 1) = rs.Fields(i).Name Next i [a2].CopyFromRecordset rs Set rs = Nothing CNN.Close End Sub

qsPval1x.rar (20.32 KB, 下载次数: 13)

[此贴子已经被作者于2006-3-20 20:12:51编辑过]

ycyhjj2865 · 发表于 2006-3-21 09:07

解决方案下下载：

X46Ef3LL.rar (21.2 KB, 下载次数: 44) 在你的编程基础上，只能采用在EXCEL中循环语句完成。

foshan · 发表于 2006-3-21 10:14

谢谢!目前只能这样吧!这个问题到过很多论坛提问，均没有一个较好的解决方案。

ycyhjj2865 · 发表于 2006-3-21 11:13

这种方法是最简单的，不可能还有比这个方案用更少的语句没有最好的方案，只用更适用方案即使你引用了ACCESS工程库，达到同样效果所使用的语句之多，也是令人感到疑惑的。值的采用ACCESS工程库的原因无非是把在EXCEL中要执行代码工作转移到ACCESS中；使得在EXCEL中的编程变得更加简单

[此贴子已经被作者于2006-3-21 11:15:31编辑过]

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