我需要打開一個表(不匹配);創建一個新字段(ID);使用現有字段創建一個新的唯一字符串(赫茲);然後,最後,將這個新字符串插回到表格的新字段中。我被卡住了,因爲我是新人。任何微調前鋒將不勝感激。 Dim db As DAO.Database
Dim tdf As DAO.TableDef
Dim fld As DAO.Field
Dim Hertz As String
Dim rst As
我知道這很愚蠢,但我無法弄清楚這一點。下面的當前代碼將滿足條件的記錄集插入到TxtBox1中,然後通過在表中重新寫入滿足TxtBox2條件的新記錄集來擦除數據。 我需要的是將TxtBox1中的記錄集會議條件插入到表中,然後在循環時將記錄集的下一個迭代添加到表中。 (不超過寫入/刪除第一返回記錄集) Dim db As Database
Dim rst As DAO.Recordset
Dim
我試圖修復一些小工具,它似乎在空閒時間後失去與數據庫的連接。我已經將超時設置爲0,但這似乎不起作用。 而不是簡單地崩潰並顯示一些錯誤消息我想嘗試重新建立連接並執行查詢,直到成功(我意識到這可能是一個不好的資源使用),但即使這樣,我就是這樣試圖在這裏完成。或者,如果可能的話,顯示一個消息框,指出連接已經丟失,然後一旦連接建立就關閉連接。 任何建議將不勝感激。 Public connMain As A
我想通過數據庫查詢循環並將電子郵件發送到我從查詢中獲得的電子郵件地址。 這是我的一段代碼。 do until rs.EOF
Set myMail = CreateObject("CDO.Message")
myMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendu
我一直致力於在MS Excel中創建動態報表。我正在研究傳統的VB6應用程序,並且遇到了一些我希望你們可以幫我解決的問題。我在下面做的是將數據抓取到我的記錄集g_RS3中 - 通常這有3到20個項目,我使用g_RS3在我的Excel中輸入值(標題和每個標題下的2列值)電子表格。我試圖對它進行編輯,但我一直在努力。這是我的代碼.... Do While Not g_RS3.EOF
With
我有Excel VBA代碼在訪問數據庫上運行選擇查詢並返回記錄集。連接工作正常。當我獲得記錄集時,我可以很好地訪問每行中的每個字段。以下是我目前正在使用: Sub accessSelect(sql)
Set rs = New ADODB.Recordset
Call accessConnection
With rs
.Open sql, conn
End With
Do W