我的ADO学习笔录

yagi2008

好东西，谢谢分享
建议楼主修改标题中的一个字，不是笔录，应该是笔记！哈哈

jilijun

感谢分享，受益匪浅！！

yuwenjiahui

建议申请精华贴,如果能继续补充就更加精华了.

[ 本帖最后由 yuwenjiahui 于 2009-4-2 22:33 编辑 ]

csreader

谢谢楼主，很有用的资料。
有8年没有接触了，现在想再拿起来，得花不少力气啊。

kingmate

好东西，大家好，才是真的好

主人号

你好,老师,能帮我看一下,问题出在哪了吗运行时错误 ...
运行时错误'424',要求对象,请各位老师帮我改一下
Sub 特殊()
For Each loWindow In Application.Windows
        If LCase(loWindow.Caption) = "result.xls" Then
            loWindow.Close (False)
        End If
    Next
   
    If Dir("c:\result.xls") <> "" Then
        Kill "c:\result.xls"
    End If
   
    ActiveWorkbook.Save
   
   
    Set loConnection = CreateObject("ADODB.Connection")
    Set loRecordset = CreateObject("ADODB.Recordset")
   

    loConnection.Open "Driver={Microsoft Excel Driver (*.xls)}; " & _
                        "DBQ=" + ActiveWorkbook.FullName + ";" & _
                        "ReadOnly=True"

    loRecordset.Open _
    "select s1.*, IIF(IsNull(s2.入店时间),0,s2.入店时间),IIF(IsNull(s2.离店时间),0,s2.离店时间),IIF(IsNull(s2.金额),0,s2.金额),IIF(IsNull(s2.早餐费),0,s2.早餐费) " & _
    "into [Excel 8.0;Database=c:\result.xls].[sheet1] from " & _
    "[入住人员$] s1 left outer join [入住信息$] s2 on " & _
    "(s1.单位 like '%" + s2.单位 + "%' and  s1.时间 <= s2.离店时间 and s1.时间 >= s2.入店时间 ", loConnection
    loConnection.Close

    Workbooks.Open ("c:\result.xls")
    ActiveWorkbook.ActiveSheet.UsedRange.Font.Name = "Tahoma"
    ActiveWorkbook.ActiveSheet.UsedRange.Font.Size = 9
    ActiveWorkbook.ActiveSheet.Cells.EntireRow.AutoFit
    ActiveWorkbook.ActiveSheet.Cells.EntireColumn.AutoFit
End Sub

KAKA.ZHUO

非常有用，感謝斑竹！

上清宫主

好东东，非常感谢！
学习了！

rk999888

谢谢楼主谢谢分享

随心所欲

很久以前学了一点VB现在也忘的差不多了 ，再想做真的不是那么容易