奇怪的密码问题

 把密码去掉就没有问题了,可是这是自己的辛苦劳动的呀!

可以点击"取消",我就是不想它出现,让人觉得有点不满意

连接是指应用程序对数据源访问所必须的环境。

excel的应用程序(vba)和数据源都在工作簿里，ado 的连接实际是vba

对数据源即工作簿自己的连接。

哦，谢谢指点！

虽然不规范，但也能解决大量的问题，而且在Excel中研究SQL语句的使用很有意思，估计不会轻易放弃喽～

我刚刚在office2003英文版上测试,还是有同样的问题

哦 ，没发现

这是一种错误,没的办法！

您的文件退出所残留的工程，FindWindow 找不到，GetObject取不到呵呵！

解决办法：

模块中代码：

Public conn, rst

Sub ImportToAccess() '导入ACCESS
    Dim Sql$, Path$
    Sheets("2").Activate
    ARR = Range("A1:J" & [A65536].End(xlUp).Row)
    arrnum = UBound(ARR) '记录个数
    With rst
        .Open "SELECT * FROM DATA", conn, AdOpenForwardOnly, AdLockOptimistic
        For R = 1 To arrnum
            .AddNew
            For i = 1 To 10 '字段个数
                .Fields(i).Value = ARR(R, i)
            Next
            .Update
        Next
        .Close
    End With
End Sub

窗体中代码：

Private Sub CommandButton1_Click() '导入按钮
    Call ImportToAccess
End Sub

Private Sub CommandButton2_Click() '退出按钮
    Set rst = Nothing
    conn.Close: Set conn = Nothing
    ThisWorkbook.Close False
End Sub

Private Sub UserForm_Initialize() '窗体初始化
    Set conn = CreateObject("ADODB.Connection")
    Set rst = CreateObject("ADODB.Recordset")
    conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & ThisWorkbook.Path & "\DATA.MDB;Jet OLEDB:Database Password=" & "123"
End Sub

Private Sub UserForm_Terminate() '窗体关闭
    Set rst = Nothing
    conn.Close: Set conn = Nothing
End Sub

原来的连接方式：

"INSERT into [DATA] SELECT * FROM [Excel 8.0;DATABASE=" & ThisWorkbook.FullName & ";HDR=yes].[Excel表$]"

我认为是一种隐形连接，无法用 conn.Close: Set conn = Nothing 的形式断开连接，置空对象，改成上面的形式后，就可以做到了。

4XpoYIvK.rar (43.3 KB, 下载次数: 44)

2007-1-6 19:28 上传

点击文件名下载附件