2 Dim comm As ADODB.Command 3 Dim sqlstring As String 6 sqlstring = "insert into c_info.............." 7 Set comm = New ADODB.Command 8 comm.ActiveConnection = "dsn=c_info" 9 comm.CommandText = sqlstring 10 comm.Execute 11 Set comm = Nothing
先检测数据库的情况,对数据库为空的情况作一下保护。例如: if recordset.eof=recordset.bof then 不执行 end if 然后再重建数据库表格 dim rs as adodb.recordsetrs.addnewtable …… rs.append…… …… rs.update rs.refresh然后置空数据库
3 Dim sqlstring As String
6 sqlstring = "insert into c_info.............."
7 Set comm = New ADODB.Command
8 comm.ActiveConnection = "dsn=c_info"
9 comm.CommandText = sqlstring
10 comm.Execute
11 Set comm = Nothing
应该是comm.execute吧?
if recordset.eof=recordset.bof then
不执行
end if
然后再重建数据库表格
dim rs as adodb.recordsetrs.addnewtable ……
rs.append……
……
rs.update
rs.refresh然后置空数据库