100分请教Fields.Append的用法

breadjyh 2003-01-02 09:53:39
在没有数据库实体的情况下如何利用ADO对象的Fields.Append方法建立一个临时表
...全文
238 点赞 收藏 5
写回复
5 条回复
切换为时间正序
请发表友善的回复…
发表回复
mypiip 2003-01-05
Dim rs As Recordset
Set rs = New Recordset
rs.Fields.Append 字段名称, 字段类型, 字段长度
回复
breadjyh 2003-01-05
多谢各位的答复,我试试先,通过立即给分
回复
litsnake1 2003-01-03
up
回复
龙华 2003-01-03
dim rs As Recordset
set rs=new Recordset
With rs
.Fields.Append "ID", adInteger
.Fields.Append "Item", adBSTR, 255
.CursorType = adOpenStatic
.LockType = adLockOptimistic
.Open
End With
回复
feixuehenshui 2003-01-03
Private rs As New ADODB.Recordset ' 记录集的变量

Private Sub CreateRecordset()
With rs
.Fields.Append "ID", adInteger
.Fields.Append "Item", adBSTR, 255
.CursorType = adOpenStatic
.LockType = adLockOptimistic
.Open ' 不需要连接对象。
End With
Dim i As Integer

For i = 1 To 100
rs.AddNew
rs!ID= i
rs!Item = "thing " & i
rs.Update
Next i
rs.MoveFirst
End Sub
回复
发动态
发帖子
VB基础类
创建于2007-09-28

7451

社区成员

VB 基础类
申请成为版主
社区公告
暂无公告