大侠帮忙解决一下这个数据比较的问题！！急！！希望能留下一段代码给我学习！！！
就是输入一个数据，然后和数据库中的标准数据比较的得出结果输出
数据处理就是输入的数据和标准的数据比较大小
在标准的数据大小不同的范围内（比如说：标准数据的-10%——+10%中就输出结果为正常，其他范围中输出结果为有问题）就会有不同的输出结果
怎么用vb 做啊，能不能给我一段代码让我学习一下！
我对数据库还不是很懂！！
谢谢！！
问题点数：0、回复次数：6Top
1 楼homeland520（天山之王（哈哈两声说Beybey)）回复于 2004-05-03 00:53:02 得分 0
text1.text中输入数据
text2.text中为输出的结果
dim txtsql as string
dim rs as adodb.recordset
dim msgtext as string
txtsql ="select 字段 from 表 where 限定条件 "
set rs =executesql(txtsql,msgtext)
if rs.eof=false then
for i=1 to rs.recordcount
if text1.text>rs.fields(0) * 0.1 then
text2.text=text1.text '注：此处要看你取的记录是几条，如果是一条，这样就可以，如果多条那就要另想办法解决了（此循环是多条记录的情况，所以还不完善，剩下的楼主自己解决吧
elseif 条件 then
--------
-----------
else
--------
end if
rs.movenext
next i
else
msgbox "没有记录,vbokonly,"警告"
end if
rs.close
Top
2 楼homeland520（天山之王（哈哈两声说Beybey)）回复于 2004-05-03 00:54:18 得分 0
Public Function ConnectString() _
As String
'returns a DB ConnectString
ConnectString = "Provider=SQLOLEDB.1;Password=密码;Persist Security Info=False;User ID=sa;Initial Catalog=数据库名字;Data Source=IP或服务器名字"
End Function
Public Function ExecuteSQL(ByVal SQL _
As String, MsgString As String) _
As ADODB.Recordset
'executes SQL and returns Recordset
Dim cnn As ADODB.Connection
Dim rst As ADODB.Recordset
Dim sTokens() As String
On Error GoTo ExecuteSQL_Error
sTokens = Split(SQL)
Set cnn = New ADODB.Connection
cnn.Open ConnectString
If InStr("INSERT,DELETE,UPDATE", _
UCase$(sTokens(0))) Then
cnn.Execute SQL
MsgString = sTokens(0) & _
" query successful"
Else
Set rst = New ADODB.Recordset
rst.Open Trim$(SQL), cnn, _
adOpenKeyset, _
adLockOptimistic
'rst.MoveLast 'get RecordCount
Set ExecuteSQL = rst
MsgString = "查询到" & rst.RecordCount & _
" 条记录 "
End If
ExecuteSQL_Exit:
Set rst = Nothing
Set cnn = Nothing
Exit Function
ExecuteSQL_Error:
MsgString = "查询错误: " & _
Err.Description
Resume ExecuteSQL_Exit
End FunctionTop
3 楼homeland520（天山之王（哈哈两声说Beybey)）回复于 2004-05-03 01:00:11 得分 0
希望楼下的指导！哈哈Top
4 楼online（龙卷风V4.0--决战江湖(MS MVP-VB)）回复于 2004-05-03 01:08:07 得分 0
Option Explicit
Private conn As ADODB.Connection
Private rs As ADODB.Recordset
Private Sub Command1_Click()
'数据库中设定标准值s1(最小值),s2(最大值),这些数据事先录入完成
Set rs = New ADODB.Recordset
rs.Open "select * from mz where s1<'" & CDbl(Text1.Text) & "' and s2>'" & CDbl(Text1.Text) & "'", conn, 1, 3
If Not rs.EOF Then
MsgBox "此数据符合标准"
Else
MsgBox "非标准数据"
End If
End Sub
Private Sub Form_Load()
Dim apppath As String
Dim DbFileName As String
Dim ConnectString As String
Dim i As Integer
Set conn = New ADODB.Connection
Dim sql As String
Set conn = New ADODB.Connection
Set rs = New ADODB.Recordset
rs.CursorLocation = adUseClient
DbFileName = App.Path & "\article.mdb"
ConnectString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _
DbFileName & ";Persist Security Info=False;"
On Error Resume Next
With conn
.CursorLocation = adUseClient
.Open ConnectString
End With
End Sub
Top
5 楼kissoflife（明月高楼休独倚，酒入愁肠，化作相思泪！）回复于 2004-05-03 01:31:00 得分 0
如果是ms sql，可以参照：
CASE 函数用于计算多个条件并为每个条件返回单个值。CASE 函数通常的用途是使用可读性更强的值替换代码或缩写。下面的查询使用 CASE 函数重命名书籍的分类，以使之更易理解。
USE pubs
SELECT
CASE type
WHEN 'popular_comp' THEN 'Popular Computing'
WHEN 'mod_cook' THEN 'Modern Cooking'
WHEN 'business' THEN 'Business'
WHEN 'psychology' THEN 'Psychology'
WHEN 'trad_cook' THEN 'Traditional Cooking'
ELSE 'Not yet categorized'
END AS Category,
CONVERT(varchar(30), title) AS "Shortened Title",
price AS Price
FROM titles
WHERE price IS NOT NULL
ORDER BY 1
Top
6 楼kissoflife（明月高楼休独倚，酒入愁肠，化作相思泪！）回复于 2004-05-03 01:34:28 得分 0
如果是access，可以参考：
select iif(课程1>90,'大于90','小于等于90') as 成绩 from 学生成绩表Top
相关问题
- 跪求.net (C#代码)学习代码 最好sql server 数据库 优秀代码 马上接贴
- 本人用JAVA开发了一套简单的数据操作软件，需要源代码的请留下email.
- ★★★快来抢100分★★★:在delphi里，求购用ado操作数据库的详细源代码，供学习研究？
- 那里可以弄到用VC遍的数据库管理系统的代码学习？
- 有谁有简单的cb++,vc++数据库应用的代码？简单的功能即可，用于学习。
- 有人有三层的程序源代码和数据库结构吗，发一份学习一下。
- 各位学习算法/数据结构的时候,总共写了多少行的代码?
- 关于数据邦定的问题，，还有代码优化的问题。。。虚心学习！！！
- 希望提供学习用ASP.NET代码 （不报错的 带MSSQL数据库的） 80分
- 谁有用ORACLE数据库，学习STRUTS的JAVA源代码，适合初学者用
