数据结构发生变化!!!!!!!
Sub 更新数据()
On Error GoTo hhh
Dim Cnn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim myData As String '数据库名称变量
Dim myTable As String '新数据表名称变量
Dim myOldTable As String '现存的数据表名称变量
Dim SQL As String
'设置数据库名称(包括完整路径)
myData = ThisWorkbook.Path & "\数据库.mdb"
myTable = "数据表" '要创建的数据表名称
myOldTable = "备用数据表" '现存的数据表名称
'建立与数据库的连接
With Cnn
.Provider = "Microsoft.Jet.OLEDB.4.0"
.Open myData
End With
'Call Cnn
'On Error Resume Next
'删除原有的数据表
SQL = "drop table " & myTable
Set rs = Cnn.Execute(SQL)
'创建新的数据表
SQL = "Select * into " & myTable & " From " & myOldTable
Set rs = Cnn.Execute(SQL)
MsgBox "数据表创建成功!", vbInformation, "创建数据表!"
GoTo xxx
hhh:
MsgBox "创建数据表出现错误!", vbCrLf & "错误为:" & Err.Description, vbCritical, "错误!"
xxx:
Cnn.Close
Set rs = Nothing
Set Cnn = Nothing
End Sub

我根据"数据库.mdb"中的"备用数据表"来创建一个新的"数据表".在执行上面过程后创建成功后的"数据表"中的数据结构却变动了... ...
创建前:(备用数据表)
职工编号:文本型,长度5,不允许为空,主键.
职员姓名:文本型,长度6,不允许为空.
创建后:(数据表)
职工编号:文本型,长度5,允许为空,主键无
职员姓名:文本型,长度6,允许为空.
怎么才能使创建前后的数据结构不变动呢,麻烦老师朋友们帮我看看,谢谢!



[解决办法]
活没干好，就先把On Error GoTo hhh去了吧，什么习惯！
[解决办法]
on error goto errHandler

exit function
errHandler:
Debug.print err.number,err.description
#if DEBUG_MODE then
stop:resume
#end if

[解决办法]
草，重复贴，早知道不回了.....

[解决办法]
select * into NewTable from tb ....语句要求新表NewTable不存在，这个语句只能复制数据，不能复制结构....你可以先建好表NewTable，然后用insert into NewTable select * from tb...语句导数据....