这条语句不执行then 中的只执行else中的
Set myrs = New ADODB.Recordset
Set myrs2 = New ADODB.Recordset
sql = "Select * Into test_3 From [Text;HDR=NO;Database=" + "D:\wenjun\分离_bak" + "].[" + str2 + ".txt" + "]"
sql2 = "insert into test_3 select * From [Text;HDR=NO;Database=" + "D:\wenjun\分离_bak" + "].[" + str2 + ".txt" + "]"
sql3 = "select * from Msysobjects where name='test_3' "'判断数据库中是否有test_3表
myrs2.Open sql3, cn, 0, 1
If myrs2.RecordCount = 0 Then myrs.Open sql, cn, 3, 4 '表不存在,执行此条语句
MsgBox "表不存在,导入数据成功"
Else
myrs.Open sql2, cn, 3, 4 '表存在,执行此条语句
MsgBox "表存在,插入数据成功"
End If
myrs2.Close
Set myrs = New ADODB.Recordset
Set myrs2 = New ADODB.Recordset
sql = "Select * Into test_3 From [Text;HDR=NO;Database=" + "D:\wenjun\分离_bak" + "].[" + str2 + ".txt" + "]"
sql2 = "insert into test_3 select * From [Text;HDR=NO;Database=" + "D:\wenjun\分离_bak" + "].[" + str2 + ".txt" + "]"
sql3 = "select * from Msysobjects where name='test_3' "'判断数据库中是否有test_3表
myrs2.Open sql3, cn, 0, 1
If myrs2.RecordCount = 0 Then myrs.Open sql, cn, 3, 4 '表不存在,执行此条语句
MsgBox "表不存在,导入数据成功"
Else
myrs.Open sql2, cn, 3, 4 '表存在,执行此条语句
MsgBox "表存在,插入数据成功"
End If
myrs2.Close
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货