首頁猿問運行到"rs.Open...

運行到"rs.Open Sql, conn, 1, 1"處，說“對象變量或with塊變量未設(shè)置” ？

數(shù)據(jù)庫

白豬掌柜的 2023-04-19 18:15:09

Private Sub Command1_Click()Call PutInExcel1("10")End SubSub PutInExcel1(i)'==================================Dim conn As New ADODB.ConnectionDim rs As ADODB.RecordsetFileName = "D:\database\db.mdb"CnStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & FileName & ";Persist Security Info=False"conn.Open CnStr'==================================Dim ExlApp As New Excel.ApplicationExlFile = "D:\Database\test.xls"ExlApp.Workbooks.Open (ExlFile)ExlApp.Worksheets("blad1").Select'==================================Sql = "select a.* from list a where a.[chart no]='" & i & "' and a.[site-measurement]='1 - Depth'"Print Sqlrs.Open Sql, conn, 1, 1If rs(3) <> "missing" Then ExlApp.Cells(17, 3) = rs(3)If rs(4) <> "missing" Then ExlApp.Cells(17, 6) = rs(4)If rs(5) <> "missing" Then ExlApp.Cells(17, 9) = rs(5)ExlApp.SaveWorkspaceExlApp.Quitrs.Closeconn.CloseEnd Sub到底我做錯什么了？？？？

查看完整描述

3 回答

忽然笑

TA貢獻(xiàn)1806條經(jīng)驗獲得超5個贊

你的rs只是定義了一個記錄集，但并沒有把任何記錄集賦于它，所以才會出現(xiàn)這樣的錯誤。
你的程序最好增加二個自定義函數(shù)，把conn，Rs的加載與缷載單獨出來。否則，你會發(fā)現(xiàn)程序運行越來越慢，內(nèi)存占用越用越多。
比如說：
Dim conn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim ExlApp As Excel.Application

public sub CrOBJ()
set conn = new ADodb.connection
set rs = new adodb.recordset
set ExlApp = new Excel.Application
end sub
public sub killOBJ()
set conn = nothing
set rs = nothing
set ExlApp = nothing
end sub
第一個函數(shù)可以在Form_load()中加載而后一個函數(shù)可以在Form_unload()中加載。這樣做的好處就是打開頁面就調(diào)用，關(guān)閉頁面就缷載?？梢詼p小內(nèi)存占用！