① vb中判斷text中的數據與資料庫中的數據大小
rs3.Find "(零件ID) ='" & Combo1.Text & "'"
如果沒有前提條件，這條語句可定報錯
這里應該判斷資料庫是否打開，記錄集是否打開，數據是否取的正確。
如果記錄集打開且記錄存在。在執行下面的語句
下面的語句沒問題
If Val(Text3.Text) > Val(rs3.Fields("庫存數量")) Then
MsgBox "庫中存貨不足", 48, "提示！"
Text3.Text = ""
Text3.SetFocus
End If
② 在VB中， 文本框與excel表格中內容相比較的問題。
你可以先將文本框中輸入的字母轉換成大寫後再進行比較，這樣的話不管你輸入的是大寫還是小寫，都可以進行比較
比如 Cells(1,1)=UCase(Text1.text)
③ 用vb語句如何比較textbox中的值與資料庫中的值是否相等
textbox的vaule值讀出來，然後做為參數寫到資料庫插入語句insert語句裡面去。然後連接資料庫，執行insert
語句就可以了
④ vb中如何讓文本框和資料庫中的數據關聯
比較簡單的方法:
1.在窗體上添加一個TextBox控制項(Text1),一個Data控制項(Data1);
2.設置Data1的DatabaseName為資料庫文件,設置RecordSource為需要關聯的表;
3.設置Text1的DataSource為Data1,設置DataField為需要關聯的列名.
注:以上方法僅使用與Access,Excel等,但不能用於連接sql
Server.
⑤ VB中將文本框內的數據與連好的資料庫里的數據比較
Private Sub Command8_Click()
Adodc1.RecordSource = "select * from booktable where deadline < " & Text5.Text
End Sub
⑥ vb輸入一個程序,讓其和資料庫的信息比對
SQL資料庫是SQLStrver2000資料庫嗎？連接SQLStrver2000資料庫其實是比較簡單的，關鍵是你在安裝SQLStrver2000資料庫時的設置，比如登錄、密碼等，如果你在安裝時設置的登錄是sa，密碼為空，那麼連接資料庫的SQL語句為（假定資料庫名為SJK，伺服器名為ASSW）：PublicdbAsNewADODB.Connection'連接資料庫對象的聲明db.ConnectionTimeout=10db.CursorLocation=adUseServerdb.ConnectionString="driver={SQLServer};server=ASSW;uid=sa;pwd=;database=SJK"db.Open上面是連接SQL資料庫的代碼，但是還沒有連接數據表（假定數據表名為SJB）。PublicRSAsNewADODB.Recordset'記錄集對象的聲明strSQL="select*fromSJBOrderByID"'注意這個SQL語句是最簡單的，根據你的需要修改它。RS.OpenstrSQL,db,2,2'這里就可以讀取數據了，別忘記關閉使用過的對象RS.Close'關閉記錄集對象SetRS=Nothingdb.Close'關閉資料庫連接對象Setdb=Nothing
⑦ VB文本框對應資料庫欄位的操作，請解！
查詢字元串="select * from 數據表 where d1='" & val(text1.text) & "'"
上邊是查找對應text1的欄位，下邊寫下查找與所有輸入數據對應的欄位
dim str as string
str=str & iif(trim(text1.text)="",""," and d1='" & val(trim(text1.text)) & "' "
str=str & iif(trim(text2.text)="",""," and d2='" & val(trim(text2.text)) & "' "
str=str & iif(trim(text3.text)="",""," and d3='" & val(trim(text3.text)) & "' "
str=str & iif(trim(text4.text)="",""," and d4='" & val(trim(text4.text)) & "' "
str=str & iif(trim(text5.text)="",""," and d5='" & val(trim(text5.text)) & "' "
查詢字元串="select * from 數據表 where true " & str
-----------------------------------------------------------
補充
上邊幾行,str用來存儲「select * from 數據表 where 條件」 語句中的條件
如果text1.text=""那麼text1的條件就是"" 如果不為空 條件就是 " and d1='text1值' "
同理text2.text=""那麼text2對應的條件就是"" ,反之text2條件就是 " and d2='text2值' "
以此類推，為空的就是沒條件，所以條件字元串也是空，不為空的時候都有對應的條件，把這些都連在一起不就是所有條件了？
比如 text1=「abc" text2="def" 其它都是空
那麼
查詢字元串="select * from 數據表 where true and d1='abc' and d2='def' "
其中條件里加了一個true是為了避免所有text都為空時where後要有條件，否則有了where條件為空會報錯
明白了嗎
⑧ vb怎麼實現從資料庫中檢索與文本框中有相同字元記錄
逐個記錄檢索是資料庫實現的基本功能，將「語文」作為整體檢索的SQL語句是這樣：
select * from table1 where 欄位1 like '*語文*'
如果要逐字檢索，需要多個條件：
select * from table1 where 欄位1 like '*語*' and 欄位1 like '*文*'
星號是通配符，代表0個或者多個字元，在不同的資料庫系統里可能會有不同。
SQL語句是傳入資料庫的命令，如果不清楚如何將命令傳入資料庫，建議多看看基礎教程
⑨ vb中將資料庫中的數據統計出來進行比較
用ADODB吧,很簡單.
在參照里選Microsoft ActiveX Data Objects2.0 Library
Private Sub Form_Load()
Command1.Caption = "101"
End Sub
Private Sub Command1_Click()
Dim Conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim dbstring As String
Dim sql As String
On Error GoTo Command1_err
dbstring = "Driver={Microsoft Access Driver (*.mdb)};UID=;PWD=520;DBQ=D:\XE.mdb" '這里設置你自己的資料庫名,用戶名和密碼
Conn.Open dbstring '連接資料庫
sql ="select * from db1 where [欄位名] = 101"
rs.Open sql,Conn '執行SQL
'有記錄的情況
If Not rs.EOF Then
Command1.Caption = "有"
End If
'斷開連接
Set rs = Nothing
rs.Close
Set Conn = Nothing
Conn.Close
Exit Sub
Command1_err:
MsgBox Err
End Sub
⑩ vb怎麼判斷文本框內數據和資料庫數據是否一致
ADODC 的查詢代碼會寫吧；
你只要直接將 文本框的值 放在查詢語句中，就行了；
在查詢時，直接寫： "SELECT * FROM 表格 WHERE [NAME]='" & Me.Text1.Text & "'"
這樣的話，就可以以3 作為查詢條件；
查詢的結果如果為空：Eof，就說明沒有數據，否則，就是有數據
好啦。
請給分！