|
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件 ★ 免费下载 ★ ★ 使用帮助★
在本书第348页,技巧204中第9行代码"CREATE TABLE "为什么不可以写成"CREATE TABLE"只是TABLE后面少个空格键而已。
原文代码:
Sub setDatabase()
Dim Cat As New ADOX.Catalog
Dim myPath As String
Dim myTable As String
myPath = ThisWorkbook.Path & "\学校管理.mdb"
myTable = "学生档案"
If Dir(myPath) <> "" Then Kill myPath
Cat.Create "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & myPath
Cat.ActiveConnection.Execute "CREATE TABLE " & myTable & _
"(学生编号 int,姓名 text(10),住址 text(255)," _
& "家庭电话 text(20),特长 text(255))"
Set Cat = Nothing
MsgBox "创建数据库成功!" & vbCrLf _
& "数据库文件名为:" & myPath & vbCrLf _
& "数据表名称为:" & myTable & vbCrLf _
& "保存位置:当前工作簿所在的文件夹。", _
vbOKOnly + vbInformation, "创建数据库"
End Sub
|
|