高校问答曲坦类药物:请问如何在VB中向查询结果中添加自动编号字段
来源：百度文库 编辑：高校问答 时间：2024/04/29 16:39:53
我的Sql库名是abc
表名:class
id boy gril ddd
1 33 33 bbb
2 5 67 ccc
3 5 7 aaa
执行:
select identity(smallint,1,1) as '序号',* into tempTable from class order by gril desc
select * from temptable
结果
序号 ID boy gril ddd
1 2 5 67 ccc
2 1 33 33 bbb
3 3 5 7 aaa
现在我只想在VB中也实现这样的功能
可是这样的语名在VB中无法读，提示没有这样的函数
表名:class
id boy gril ddd
1 33 33 bbb
2 5 67 ccc
3 5 7 aaa
执行:
select identity(smallint,1,1) as '序号',* into tempTable from class order by gril desc
select * from temptable
结果
序号 ID boy gril ddd
1 2 5 67 ccc
2 1 33 33 bbb
3 3 5 7 aaa
现在我只想在VB中也实现这样的功能
可是这样的语名在VB中无法读，提示没有这样的函数
不能,如果是在Excel中添加,可以这样用
With XlSheet
.Activate '激活工作表,只有激活以后的range 的 select 方法才有效
.Columns(1).Insert
.Range("A1") = "序号"
.Cells(2, 1) = "1"
.Cells(3, 1) = "2"
.Range("A1").Select
'.Range("A2", "A3").Select
Set SourceRange = .Range("A2", "A3")
Set fillRange = .Range("A2", ECells(1, TblAttribs(i).Hgt))
SourceRange.AutoFill Destination:=fillRange
'.Range("A1").Select
End With
要实现这样的功能，我通常用两种方法，一个是在表中加主键定义为自增长的int类型，另一种在显示记录集的时候，设置一个新变量，进行递增显示此变量
说一下 你是什么库啊
就在vb里读数据库,并像你原先这样:select identity(smallint,1,1) as '序号',* into tempTable from class order by gril desc ,然后处理返回的rs集即可.