程式報錯，（圖片），該如何解決？求各位大佬幫忙！！！-有解無憂

uj5u.com熱心網友回復：

這里是VB板塊，不是VB.NET板塊啊

，你這個應該是語法用錯了，錯誤提示是把一個物件轉換成字串的程序失敗，
語法格式 strcomp（字串1，字串2，可選引數），從這里可以看出，你的RS1明顯是個資料集而不是一個字串，所以報的這個錯啊

uj5u.com熱心網友回復：

參考 1 樓不懂別說哎的回復:

這里是VB板塊，不是VB.NET板塊啊，你這個應該是語法用錯了，錯誤提示是把一個物件轉換成字串的程序失敗，
語法格式 strcomp（字串1，字串2，可選引數），從這里可以看出，你的RS1明顯是個資料集而不是一個字串，所以報的這個錯啊

那該怎么把他們進行比較

uj5u.com熱心網友回復：

參考 1 樓不懂別說哎的回復:

這里是VB板塊，不是VB.NET板塊啊，你這個應該是語法用錯了，錯誤提示是把一個物件轉換成字串的程序失敗，
語法格式 strcomp（字串1，字串2，可選引數），從這里可以看出，你的RS1明顯是個資料集而不是一個字串，所以報的這個錯啊

那該怎么改呢？

uj5u.com熱心網友回復：

看你這個用法RS1應該是個資料集吧？

uj5u.com熱心網友回復：

rs1.open "select * from 表名 where 用戶名欄位='"& replace(textbox1.text,"'","''") &"'",conn,1,1
if rs1.recordcount<>1 then
msgbox "用戶名不正確"
elseif rs1.fields("密碼")<>textbox2.text then
msgbox "密碼不正確"
end if

大概齊就這樣吧，如果你用的是VB.Net應該考慮使用ADO.Net而不用ADO

uj5u.com熱心網友回復：

參考 5 樓三樓一郎的回復:

rs1.open "select * from 表名 where 用戶名欄位='"& replace(textbox1.text,"'","''") &"'",conn,1,1
if rs1.recordcount<>1 then
msgbox "用戶名不正確"
elseif rs1.fields("密碼")<>textbox2.text then
msgbox "密碼不正確"
end if

大概齊就這樣吧，如果你用的是VB.Net應該考慮使用ADO.Net而不用ADO

非常感謝！感謝大佬！

uj5u.com熱心網友回復：

參考 4 樓不懂別說哎的回復:

看你這個用法RS1應該是個資料集吧？

是的rs1是一個資料集所以出錯

轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/257917.html

標籤：VB基礎類

上一篇：關于vba 實作excle資料匯入word模板輸出一個檔案批量列印的問題。

下一篇：問問大家怎么理解： If this DLL is dynamically linked against the MFC DLLs,