台灣最大程式設計社群網站
線上人數
1715
 
會員總數:244132
討論主題:188493
歡迎您免費加入會員
討論區列表 >> ACCESS >> 為何我在做rs.sort 跳出 執行階段錯誤3251
[]  
[我要回覆]
1
回應主題 加入我的關注話題 檢舉此篇討論 將提問者加入個人黑名單
為何我在做rs.sort 跳出 執行階段錯誤3251
價值 : 70 QP  點閱數:144 回應數:2

樓主

Vercent Tang
門外漢
0 1
14 2
發送站內信

hi 各位

最近在做一個程式,但在執行時跳出3251,可以幫我看看該如何修改嗎?
我非本科,皆是參考他人資料

ListBox1.Clear
Application.ScreenUpdating = False

Set baglan = CreateObject("adodb.connection")
Set rs = CreateObject("adodb.recordset")
Call baglanti
rs.Open "select * from [Assay]", baglan, 1, 1

rs.Sort = "Sequency"<----------------------

謝謝各位幫忙><"





搜尋相關Tags的文章: [ error 3251 rs.sort ] ,
本篇文章發表於2018-12-29 01:02
別忘捐VP感謝幫助你的人 新手會員瞧一瞧
1樓
作者回應

Vercent Tang
檢舉此回應
不好意思 我在描述清楚一點

Sub baglanti()
Set baglan = CreateObject("adodb.connection")
#If VBA7 And Win64 Then
baglan.Open "provider=microsoft.ace.oledb.12.0;data source=" & ThisWorkbook.Path & "\Assay.mdb"
#Else
baglan.Open "provider=microsoft.jet.oledb.4.0;data source=" & ThisWorkbook.Path & "\Assay.mdb"
#End If
End Sub

Private Sub CommandButton6_Click() 'record

' If ComboBox2 = "Assay" Then
ListBox1.Clear
Application.ScreenUpdating = False

Set baglan = CreateObject("adodb.connection")
Set rs = CreateObject("adodb.recordset")
Call baglanti
rs.Open "select * from [Assay]", baglan, 1, 1

rs.Sort = "Sequency"<--------------------------------------------------3251
.
.
.
.
.
.
End sub
本篇文章回覆於2018-12-29 01:05
== 簽名檔 ==
--未登入的會員無法查看對方簽名檔--
2樓
作者回應

Vercent Tang
檢舉此回應
已找到方法解決
本篇文章回覆於2018-12-29 12:12
== 簽名檔 ==
--未登入的會員無法查看對方簽名檔--
   
1

回覆
如要回應,請先登入.