vba在access中创建表的问题

lei122612

1. Public Sub 例28_1()
   
2.     Dim cnn As New ADODB.Connection
   
3.     Dim cmd As New ADODB.Command
   
4.     Dim rs As New ADODB.Recordset
   
5.     Dim myData As String
   
6.     Dim myTable As String
   
7.     Dim SQL As String
   
8.     '设置数据库名称（包括完整路径）
   
9.     myData = ThisWorkbook.Path & "\工资管理.mdb"
   
10.     '设置要创建的数据表名称
    
11.     myTable = "奖金表"
    
12.     '建立与建数据库的连接
    
13.     cnn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" _
    
14.         & "Data Source=" & myData
    
15.     cnn.Open
    
16.     '判断数据库中是否已经存在同名的数据表
    
17.     Set rs = cnn.OpenSchema(adSchemaTables)
    
18.     Do While Not rs.EOF
    
19.         If LCase(rs!TABLE_NAME) = LCase(myTable) Then
    
20.             MsgBox "数据表已经存在！", vbCritical, "警告"
    
21.             Exit Sub
    
22.         End If
    
23.         rs.MoveNext
    
24.     Loop
    
25.     Set cmd.ActiveConnection = cnn
    
26.     '设置创建数据表的SQL语句
    
27.     SQL = "CREATE TABLE " & myTable _
    
28.         & "(职工编号 text(5) not null primary key," _
    
29.         & "姓名 text(6) not null,性别 text(1) not null," _
    
30.         & "奖金额 currency not null,发放日期 date not null,备注 text(50))"
    
31.     '利用Execute方法创建数据表
    
32.     With cmd
    
33.         .CommandText = SQL
    
34.         .Execute , , adCmdText
    
35.     End With
    
36.     '释放变量
    
37.     cnn.Close
    
38.     Set rs = Nothing
    
39.     Set cmd = Nothing
    
40.     Set cnn = Nothing
    
41.     '弹出信息
    
42.     MsgBox "数据表<" & myTable & ">创建成功！", vbInformation, "创建数据表"
    
43. End Sub

复制代码

我想通过vba在access中新建表，代码可以实现，但是我想要新建的表名字中会含有-或者/，这个程序就实现不了了。比如说我的myTable = "奖金表-1" 就抱错!!!

如果手动把access中表名字改为含有-短横线的名字是可以实现的。说明access的表名是可以包含短横线的或者斜杠的。

书各位大神帮我用代码实现。不知为啥传不了附件...

lei122612

添加上附件了,   望大神帮忙

marco

把表名用"[]"括起来

lei122612

marco 发表于 2017-7-31 13:16
把表名用"[]"括起来

赞了!!真是高手,  非常感谢

lei122612

marco 发表于 2017-7-31 13:16
把表名用"[]"括起来

你好,还是类似之前的问题, 现在是往access中写数据,  如下代码,如果mytable中含有-或者/  运行就抱错! ,  没有的话就是好的, 麻烦再帮解决下, 谢谢了

1. Private Sub CommandButton5_Click()
   
2.     Dim a, b, c, d, e As String
   
3.    
   
4.     Dim cnn As New ADODB.Connection
   
5.     Dim rs As New ADODB.Recordset
   
6.     Dim myData As String, myTable As String
   
7.     Dim myFields As Variant, myValue As Variant
   
8.    
   
9.     On Error Resume Next
   
10.     myData = ThisWorkbook.Path & "\lsdata.mdb"    '指定数据库
    
11.     myTable = Trim(TextBox1.Text)    '指定数据表名称
    
12.    
    
13.     Cells(7, 1) = myTable
    
14.     With cnn    '建立与数据库的连接
    
15.         .Provider = "microsoft.jet.oledb.4.0"
    
16.         .Open myData
    
17.     End With
    
18.     '创建指定数据表的记录集
    
19.     rs.Open myTable, cnn, adOpenKeyset, adLockOptimistic
    
20.     '开始添加新记录
    
21.    
    
22.     a = DTPicker2.Value
    
23.     b = ComboBox4
    
24.     c = TextBox12
    
25.     d = TextBox10
    
26.     e = Now
    
27.     myFields = Array("检验日期", "状态", "记录编号", "备注", "创建时间")
    
28.     myValues = Array(a, b, c, d, e)
    
29.     With rs
    
30.         .AddNew myFields, myValues
    
31.         .Update
    
32.     End With
    
33.     MsgBox "数据添加完毕！", vbInformation
    
34.     '关闭记录集和数据库连接，释放变量
    
35.     rs.Close
    
36.     cnn.Close
    
37.     Set rs = Nothing
    
38.     Set cnn = Nothing
    
39. 
    
40. 
    
41. Call showlist
    
42. 
    
43. End Sub

复制代码