① 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，就说明没有数据，否则，就是有数据
好啦。
请给分！