100分请教Fields.Append的用法

breadjyh 2003-01-02 09:53:39
在没有数据库实体的情况下如何利用ADO对象的Fields.Append方法建立一个临时表
...全文
284 5 打赏 收藏 举报
写回复
5 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
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基础类

7637

社区成员

VB 基础类
社区管理员
  • VB基础类社区
加入社区
帖子事件
创建了帖子
2003-01-02 09:53
社区公告
暂无公告