1樓：匿名使用者
修改後的結果，應該沒有問題了：
public conn as adodb.connection '這個語句最好放在模組中
dim try_times as integer
private sub command1_click()
if id(0).text = "" then
msgbox "使用者名稱不能為空！", vbokonly + vbinformation, "友情提示"
id(0).setfocus
exit sub
end if
if password.text = "" then
msgbox "密碼不能為空！", vbokonly + vbinformation, "友情提示"
password.setfocus
exit sub
end if
call main(conn) '呼叫連線資料庫的過程
dim strsql as string
strsql = "select * from users where users_name='" & trim$(text2) & "' and password='" & trim$(text3) & "' "
dim str as new adodb.recordset
set str = new adodb.recordset
str.cursorlocation = aduseclient
str.open strsql, conn, adopenstatic, adlockreadonly
with str
if .state = adstateopen then .close
.open strsql
if .eof then
try_times = try_times + 1
if try_times >= 3 then
msgbox "您已經三次嘗試進入本系統，均不成功，系統將自動關閉", vbokonly + vbcritical, "警告"
unload me
else
msgbox "對不起，使用者名稱不存在或密碼錯誤 ！", vbokonly + vbquestion, "警告"
id(0).setfocus
id(0).text = ""
password.text = ""
end if
else
msgbox "祝賀你！你已經成功登入 ！", 64, "馬上進入主程式"
unload me
form2.show '登入進入的另一個介面
end if
end with
str.close '關閉記錄集
conn.close '關閉資料庫連線
end sub
private sub form_load()
id(0).text = ""
password.text = ""
end sub
sub main(conn) '該過程最好放在模組中
conn.connectionstring = "provider=sqloledb.1;persist security info=false; user id=zxy;password=123;initial catalog=jwglxt;data source=127.
0.0.1"
conn.open
end sub
2樓：匿名使用者
conn 沒有定義，也沒有連線到資料庫，你抄的**不完整
3001一般是呼叫引數錯誤，這裡是recordset的open方法第二個引數是adodb.connection，你沒有初始化這個連線
vb 實時錯誤「3001」 引數型別不正確，或不在可以接受範圍之內，或與其他引數衝突
3樓：匿名使用者
sql = "select * 只留第一個，其它的都是多餘的，刪掉
vb 實時錯誤 3001
4樓：who絕版笨_我
用這個**
private sub command1_click()dim uname as string '宣告區域性變數,傳遞使用者名稱dim upassword as string '宣告區域性變數,傳遞密碼
'檢查使用者名稱輸入
if combo1.text = "" then '未選擇使用者名稱msgbox "請輸入使用者名稱．", vbinformation + vbokonly, "錯誤" '給出錯誤資訊
combo1.setfocus '焦點返回組合框exit sub
end if
'傳遞變數
uname = combo1.text
upassword = txtpassword.text'核對使用者名稱
if adodc1.recordset.state > 0 thendim strname as stringstrname = "使用者名稱稱='" & uname & "'"
adodc1.recordset.movefirstadodc1.recordset.find strnameend if
end sub
5樓：
錯在 rs.open上吧
有了dim cn as new adodb.connection 可省略 set cn = new adodb.connection這一句
要麼就這樣定義：
dim cn as adodb.connectionset cn = new adodb.connection 』這時這一句一定要有
你所出現的錯誤，我想可能是連線資料庫那出了問題
工作中犯錯誤了怎麼辦，工作中出錯了怎麼辦？
您好親，誠實的認識錯誤。對於自己在工作中所犯的錯誤，我覺得首先應該及時的認識到自己的錯誤，然後誠實的對待，不可以趁沒有人在，就整的和自己沒有關係似的，這樣非常不好，對自己影響特別不好。2 6及時的改進，解決。先看看自己所犯的錯誤自己能否及時的解決，能解決的，就不要嫌麻煩，自己及時的加以改進，將錯誤解...
為什麼這個程式執行不了呢，是哪出錯了嗎？請高手指點下
dedine r 30.85 改為 define r 30.85 area pi r r後面加 我已經在vc6種編譯沒錯了，你看看是不是新增的 不對，應該是半形的。printf area f n area 我知道delphi裡不能直接用 f 應該用format 函式，不知道對你有沒有幫助哦 請高手指...
如果你愛錯了人該怎麼辦 明知道是錯誤。你還會選擇繼續愛下
要是我的話我會現在放手的，因為在繼續下去的話會很痛苦的 理智的選擇放手，這是最正確的選擇 愛錯好過沒愛過。世事難料。 如果他很愛你的話 那你是幸福 明知道愛一個沒有結果的男人，還會選擇繼續愛下去嗎？ love彩樂 曾經見證過一位朋友的愛情之路。在最開始的時候，他們屬於郎才女貌，周圍的人都很看好這一對...