关于任我行Excel数据导入工具使用局限！

zjmxf

管家婆辉煌2008++5.0 可以用《任我行Excel数据导入工具》导入数据，但是只能导入期初基本数据！
但是很多基本数据其实是开账后新增的，这个工具就力不从心了。
有哪位高手能出一个 能新增 基本数据的工具？！

zjmxf

在网上找到一些资料：任我行/管家婆 导入EXCEL ACCESS数据代码，希望有高手看一下，能不能用一些！

sp;& strPath & ";" & "Extended Properties=Excel 8.0;"

    objConn1.Open
    if err.number<>0 then response.write "2"&err.description:response.end
     
    Set objRs1 = server.CreateObject("ADODB.Recordset")
    objRs1.Open "select * from ["&ExcelTbl"$]", objConn1, 1, 1
    if err.number<>0 then response.write "3"&err.description:response.end
    Set Rs = server.CreateObject("ADODB.Recordset")
     
''完全导入
    'objConn.execute    "SELECT * INTO ptype FROM OPENROWSET('MICROSOFT.JET.OLEDB.4.0', 'Excel 5.0;HDR=YES;DATABASE="&strPath&"', "&ExcelTbl&"$) Rowset_1"
     
''导入数据
    Dim Pid
    while not objrs1.eof
        objRs.addnew
        for fori=0 to objRs.fields.count-1
        'response.write fori&"|"    '调试用于查看哪个字段不正确
            if fori<>30 and fori<>31 then   '30自动编号
            objRs(fori)=objRs1(fori)
            end if
            if fori=31 then '30自动编号
            rs.open "select [Rec] from "&ExcelTbl" where typeId='"&objRs1(1)"'",objConn, 1, 1
            objRs(31)=rs(0)
            rs.close
            end if
        next
        response.write "导入"&objRs(0)"完成！"
        objRs.update
        objRs.Requery
        'objRs.movenext
        objRs1.movenext
    wend
    response.write "导入完成！"
End Sub
     
Sub Command2_Click()
''EXCEL连接
    on error resume next
    Set objConn = server.CreateObject("ADODB.Connection")
    objConn.Provider = "Microsoft.Jet.OLEDB.4.0   "
    objConn.ConnectionString = "Data Source=" & strPath & ";" & "Extended Properties=Excel 8.0;"
    objConn.Open
    if err.number<>0 then response.write "1"&err.description:response.end
     
''SQL连接
    Set objConn1 = server.CreateObject("adodb.connection")
    objConn1.ConnectionTimeout = 60
    objConn1.CommandTimeout = 60
    objConn1.CursorLocation = 3
    objConn1.Open "rovider=SQLOLEDB.1ersist Security Info=False;User ID="&SqlUser"assword="&SqlPass";Initial Catalog=" & SqlName & ";Data   Source=" & SqlIp & ""
    if err.number<>0 then response.write "2"&err.description:response.end
     
    Set objRs = server.CreateObject("ADODB.Recordset")
    objRs.Open "select   *   from   ["&ExcelTbl"1$]", objConn, 3, 3
     
    Set objRs1 = server.CreateObject("ADODB.Recordset")
    objRs1.Open "select   *   from   "&ExcelTbl"", objConn1, 1, 1
    if err.number<>0 then response.write "3"&err.description:response.end
     
    Dim i
    Dim strValue  '存放内容
    Dim strTitle  '存放表头
    Dim strSql
''导入题头
    objRs.addnew
    for fori=0 to objRs.fields.count-1
    'response.write fori&"</br>"    '调试用于查看哪个字段不正确
        objRs(fori)=objRs1(fori).name
    next
    response.write "导入题头"&objrs1(0)"完成！"

文章出处：http://www.diybl.com/course/4_we ... 08924/145345_4.html

chendaihua

其实 多学点sql，新增商品档案时，把数据跟踪功能打开。自己都可以弄EXCEL格式 的档案。直接导sql。

zjmxf

我们不可能让每个操作员去学sql吧！

konic

SQL数据跟踪要怎么做？