1樓：匿名使用者
你的這個問題是找不到欄位專案
dj.outtime這些欄位是否存在與你前面查詢對應的sql語句有關
可以嘗試去掉下dj
2樓：匿名使用者
val(adodc1.recordset.fields("house.
hprice")) * (val(adodc1.recordset.fields("dj.
outtime")) - val(adodc1.recordset.fields("dj.
intime")))
表裡的欄位名是house.hprice？，要是的話加方括號試一下，adodc1.recordset.fields("[house.hprice]")...
house是不是表名？
要是的話，去掉表名試一下。
3樓：匿名使用者
1這表示您沒有找到指定記錄集下的欄位；
2可以分解您的計算公式來查詢，這個辦法便於查詢和閱讀；
3.分別設定3個變數假設為a，b,c,例如：a=adodc1.recordset.fields("house.hprice")；
b=adodc1.recordset.fields("dj.outtime）餘此類推，
在賦值語句下設定除錯斷點，在除錯模式下，滑鼠指向變數，就可以看到變數存放的內容，如正確，則顯示，否則顯示錯誤內容，您可以立即定位錯誤在哪個欄位中。
4.試試看，這個辦法我用了好幾年，很好用。
4樓：dl_會飛的青蛙
val(adodc1.recordset.fields("hprice")) * (val(adodc1.
recordset.fields("outtime")) - val(adodc1.recordset.
fields("intime")))
猜你前面的應該是表名！~
已經到rs裡了 就不要寫表名了！~ 直接欄位名就可以了！~
vb實時錯誤3265，具體改法
5樓：匿名使用者
dim adodc1 as new adodb.connectionadodc1.connectionstring = "provider=sqloledb.
1;integrated security=sspi;persist security info=false;initial catalog=teacher;data source=qh-20140904uojb"
adodc1.open
dim reset as new recordset'除了連線還要開啟表。
reset.open "select * from 你的表名", adodc1, adopenkeyset, adlockoptimistic
reset.addnew
'。。。。。。。。。
reset.close
adodc1.close
'。。。。。。。。。
6樓：
哪個地方？第幾行報錯？什麼錯？
vb實時錯誤3265找不到專案！
7樓：
你的主要問題是if..then..end if邏輯關係混亂，以至於資料庫已經關閉了，還在想要讀取欄位值，修改如下：
private sub command1_click()
if text1.text = "" then
msgbox "使用者名稱不能為空，請重新輸入！"
text1.setfocus
exit sub
end if
if text2.text = "" then
msgbox "密碼不能為空，請輸入！"
text2.setfocus
exit sub
end if
rsyz.cursorlocation = aduseclient
rsyz.open "select * from [user] where userid='" & text1.text & "'", cnyz, adopendynamic, adlockoptimistic
if rsyz.recordcount = 0 then
n = n + 1
if n < 3 then
msgbox "無此使用者名稱，請註冊或重新輸入！"
else
msgbox "您輸入的密碼錯誤次數已經達到3次，請稍後再試！"
rsyz.close
set rsyz = nothing
endend if
text1.text = ""
text1.setfocus
rsyz.close
set rsyz = nothing
exit sub
else
if trim(text2.text) <> rsyz.fields("userpassword") then
n = n + 1
if n < 3 then
msgbox "您輸入的賬號或密碼錯誤，請重新輸入！"
text2.text = ""
text2.setfocus
rsyz.close
set rsyz = nothing
exit sub
else
msgbox "您輸入的賬號或密碼錯誤次數已經達到3次，請稍後再試！"
rsyz.close
set rsyz = nothing
endend if
else
select case rsyz.fields("usertype") '就這句有問題。。搞不懂
case "stu"
stu.show
case "tea"
tea.show
end select
rsyz.close
set rsyz = nothing
end if
end if
end sub
8樓：匿名使用者
錯誤指向哪一行你都不肯告訴大家，真懷疑你是否真的需要別人幫你
9樓：華仔成教
你用 rsyz.state 看一下是否物件已經開啟，我看著你**有些亂套。你看著不糊塗嗎？vb既然是順序執行，能在一個區塊完成就儘量不要相互巢狀，我給你排一下你的**：
if text1.text = "" thenmsgbox "使用者名稱不能為空，請重新輸入！"
text1.setfocus
if text2.text = "" thenmsgbox "密碼不能為空，請輸入！"
text2.text = ""
exit sub
end if
。。。。。。這裡省略32行
end if
select case rsyz.fields 。。。
看出問題了嗎？ 那麼當text1不是空的時候就沒有開啟rsyz
10樓：牛人影視
usertype 是否拼寫正確
vb 錯誤除錯 實時錯誤3265
11樓：匿名使用者
你 借閱資訊 這個表中 沒有那麼多列 所以會出錯，檢查資料庫表吧
rs_book.fields("具體列名") 來代替數字序號
vb程式執行時，出現實時錯誤 '3265'是什麼意思？
12樓：匿名使用者
一般這種錯誤出現在資料庫應用 找不到對應的欄位導致的
13樓：匿名使用者
我也有這樣的問題。甚至更嚴重! 昨天的程式執行得穩穩當當的，但是今天同樣的程式也冒出了你所說的情況。頂，支援你了
14樓：匿名使用者
指向哪行**貼出來看看
vb 實時錯誤3265
15樓：匿名使用者
me.controls(fhtotal(i)).text控制元件名中的數字序列不能直接用陣列代替!
我的建議是,定義一個物件型別的陣列,把所有控制元件賦值給這個陣列比如:dim arr() as object =以後如果要使用textbox1控制元件,直接用arr(0)代替,比如arr(0).text這樣的形式是允許的!
因為arr(0)本身指的就是textbox1控制元件!
16樓：匿名使用者
銷售資料 where 序號=" & 序號.text
17樓：匿名使用者
me("text" & i).text = rs.fields(fhtotal(i)) 即可
vb題目求助
剛剛寫玩，測試成功，直接複製了 文字框名稱為 text1 命令按鈕名稱為 command1 private sub command1 click endend sub private sub form load text1.text visual basic程式設計 text1.left 0 tex...
VB6怎麼用錯誤捕獲，VB中程式錯誤的捕獲以及處理方法
vb6使用on error 語句來捕獲程式執行中的可預見錯誤或不可預見的錯誤。on error 語句，啟動一個錯誤處理程式並指定該子程式在一個過程中的位置 也可用來禁止一個錯誤處理程式。說明如果不使用 on error 語句，則任何執行時錯誤都是致命的 也就是說，結果會導致顯示錯誤資訊並中止執行。o...
VB求助 求Sn a aa aaa aaaaaa aaa n個a
當i不等於n的時候在s字串最後加上一個 號，當輸出最後一個字串，比如22222時候i 5，n 5，這個時候不要再s最後加上 號 如果有這句，比如a 2，n 5時候輸出是這樣的 當a 2時，n 5時，s 2 22 222 2222 22222如果沒有這句if i n then s s 那麼輸出是這樣的...