Question

我最近继承了用Visual Basic和Java Script编写的经典ASP应用程序。我不是程序员，但是在VBA中使用Excel和Access编写了一些应用程序。

我正在寻找一个脚本，以使用ADODB记录集将Excel（.xlsx）工作表复制到访问（.accdb）表中。我在VBA中使用了这种方法，但是asp classic中的Visual Basic代码无法识别记录集对象的Locktype或Options属性。如果删除.Options和.Locktype，脚本将运行，但只能在只读模式下运行，而我无法添加新记录。

adPath = Server.Mappath("OutageData/QHT.accdb")
   Set cnnAccess = Server.CreateObject("ADODB.Connection")
with cnnAccess
    .Provider="Microsoft.ACE.OLEDB.12.0"
    .Open adpath
end with
Set rstAccess = Server.CreateObject("ADODB.Recordset")
with rstAccess
      
    .ActiveConnection=cnnAccess
    .CursorType=adOpenDynamic
    .Options=adCmdTable 
    .LockType=adLockOptimistic
    .cursorlocation=aduseclient
    .Open "TST1UPDT"


  end with

有什么建议吗？

Thx

基思

Answer 1

ssqlinsertupdt ="INSERT INTO " & "TST1UPDT" & " SELECT * FROM " & "[Excel 8.0; HDR=YES; DATABASE=" & cnnAccess & "]." & "[TASK$]"
DatabaseConnection.Execute ssqlinsertUpdt

上面的sql语句起作用。

经典ASP，Visual Basic和ADODB记录集

1 个答案: