wyh 发表于:2014-05-20 16:41:20
在窗体中有list表单 内容比如 北京 上海 广州
如何通过按钮在ACCESS中新建一个表1
并将 北京 上海 广州 写入表1的字段1里面?
Public Sub CreateTB()
Dim tbdObject As TableDef
Dim fldObject As DAO.Field
Dim dbObject As DAO.Database
Set dbObject = CurrentDB
Set tbdObject = dbObject.CreateTableDef("表1")
Set fldObject = tbdObject.CreateField("Field1", dbText)
fldObject.Size = 100
tbdObject.Fields.Append fldObject
tbdObject.Fields.Refresh
dbObject.TableDefs.Append tbdObject
dbObject.TableDefs.Refresh
dbObject.Close
Set dbObject = Nothing
DoCmd.RunSQL "insert into 表1 (Field1) values('北京')"
DoCmd.RunSQL "insert into 表1 (Field1) values('上海')"
DoCmd.RunSQL "insert into 表1 (Field1) values('广州')"
End Sub
总记录:1篇 页次:1/1 9 1 :