UC知道VB 问题(有源码)，帮忙看哪里错误！
来源：百度知道 编辑：UC知道 时间：2024/04/30 13:56:10
请帮忙看看下面的“错误行”，哪里错误，如何写才能正确！谢谢
&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&
&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&
Private Sub Command1_Click()
Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
db = App.Path & "\zhan1616.mdb"
connstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & db
conn.Open connstr
Findtable = Date
Set rs = conn.OpenSchema(adSchemaTables)
rs.Find "TABLE_NAME='" & Findtable & "'"
If rs.EOF Then
conn.Execute ("Create table " & Findtable) '错误行
MsgBox "成功！", 48, "创建成功"
Else
end if
rs.Close
conn.Close
End Sub
&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&
没有模块！！！
&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&
匆匆小女子，你好！我看你VB还可以吧！要不怎么经常回答VB问题！
还有，你的方法不可行！
&&&&&&&&&&&&&&&&&&&&&&&&&&
&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&
&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&
Private Sub Command1_Click()
Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
db = App.Path & "\zhan1616.mdb"
connstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & db
conn.Open connstr
Findtable = Date
Set rs = conn.OpenSchema(adSchemaTables)
rs.Find "TABLE_NAME='" & Findtable & "'"
If rs.EOF Then
conn.Execute ("Create table " & Findtable) '错误行
MsgBox "成功！", 48, "创建成功"
Else
end if
rs.Close
conn.Close
End Sub
&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&
没有模块！！！
&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&
匆匆小女子，你好！我看你VB还可以吧！要不怎么经常回答VB问题！
还有，你的方法不可行！
&&&&&&&&&&&&&&&&&&&&&&&&&&
首先：
Findtable = Date
如果是今天的话，这里得到的值是：2006-09-04，所以("Create table " & Findtable)代上值就是：("Create table 2006-09-04")，这样在数据库里错误的，因为含有字符串“-”，因此需要使用“[]”来将它括起来，如：
("Create table [2006-09-04]")，那么就是要改为：("Create table [" & FindTable & "]")；
但是这样还是不正确的，因为创建表里，你需要给它指定字段，要不然表是创建成功了，但是打不开，所以还需要将它改为：
("Create table [" & FindTable & "] ([id] int,[fdate] datetime)")
这样新建的表就有两个字段：id,fdate了；完整的语句就是：
conn.Execute ("Create table [" & FindTable & "] ([id] int,[fdate] datetime)")
还要补充一下，在编写代码时，最好将使用到的变量全部声明，一定要养成这个好习惯。
你的这个东西:Dim conn As New ADODB.Connection
NEW ADODB.Connection 应该还有个模块吧 从那里面调用
If rs.EOF Then
conn.Execute ("Create table " & Findtable) '错误行
MsgBox "成功！", 48, "创建成功"
改为：
If rs.EOF(1) Then
conn.Execute ("Create table " & Findtable) '错误行
MsgBox "成功