精华网络内容 :http://www.qqread.com/network/
空手建立Access数据库
程序图例
-------------------------------------
软件说明:包含源码
说明: frmMain表单一个
Private Sub Command1_Click()
On Error GoTo Err100
'定义表与字段
Dim DefDatabase As Database
Dim DefTable As TableDef, DefField As Field
Set DefDatabase = Workspaces(0).OpenDatabase(App.Path & "VB-CODE.MDB", 0, False)
Set DefTable = DefDatabase.CreateTableDef("中国")
'dbBinary = 9
'dbBoolean = 1
'dbByte = 2
'dbChar=18
'dbDate=8...[ 查看全文 ]