怎样在VB6的ADO方式下建立和拷贝一个表?

novman 2000-06-09 04:42:00
怎样在VB6的ADO方式下建立和拷贝(已知的表)一个表?
...全文
155 2 打赏 收藏 转发到动态 举报
写回复
用AI写文章
2 条回复
切换为时间正序
请发表友善的回复…
发表回复
bluewater 2000-07-09
  • 打赏
  • 举报
回复
Private db As Database
Private td As TableDef
Private f As Field

Private Sub Command1_Click()
Set db = DBEngine.CreateDatabase("d:\01.mdb", dbLangGeneral)
Set td = New TableDef

Set f = td.CreateField("NAME", dbText, 20)
td.Fields.Append f

Set f = td.CreateField("ID", dbText, 5)
td.Fields.Append f

Set f = td.CreateField("DEPARTMENTP", dbText, 60)
td.Fields.Append f


td.Name = "class"
db.TableDefs.Append td

Set db = Nothing

End Sub

Un1 2000-06-09
  • 打赏
  • 举报
回复
执行SQL

7,759

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧