当前位置：首页 → 问答吧 → 使用控件比较大小

使用控件比较大小

时间：2011-09-26

来源：互联网

有2张表a、b，a的字段为A1 A2 A3 ,b的字段为A1 A2 B3，现在需要实现在A1=A1，A2=A2的条件下，就是在2个文本框中输入A1，A2，通过按钮比较A3、B3的大小，并返回当A3<B3时提示错误，A3>B3时正确。
例如：A1是时间，A2是姓名，当标签输入时间=20110926，姓名=张三时，A3，B3进行大小比较

作者: zpzpzp198611 发布时间: 2011-09-26

VB code

strsql=""
strsql=strsql & " SELECT IIf(A.A3>B.B3,'正确','错误') AS 查询结果 " & vbcrlf
strsql=strsql & " FROM A, B " & vbcrlf
strsql=strsql & " WHERE A.A1=B.A1  " & vbcrlf
strsql=strsql & "   AND A.A2=B.A2 " & vbcrlf
strsql=strsql & "   AND A.A1= '" & strDate & "' " & vbcrlf
strsql=strsql & "   AND A.A2= '" & strName & "' " & vbcrlf

作者: jhone99 发布时间: 2011-09-26

如果你的时间字段类型是日期/时间应该在vb里用##（access里不清楚）
VB code

strsql=""
strsql=strsql & " SELECT IIf(A.A3>B.B3,'正确','错误') AS 查询结果 " & vbcrlf
strsql=strsql & " FROM A, B " & vbcrlf
strsql=strsql & " WHERE A.A1=B.A1  " & vbcrlf
strsql=strsql & "   AND A.A2=B.A2 " & vbcrlf
strsql=strsql & "   AND A.A1= #" & datDate & "# " & vbcrlf
strsql=strsql & "   AND A.A2= '" & strName & "' " & vbcrlf

作者: jhone99 发布时间: 2011-09-26

我试试

作者: zpzpzp198611 发布时间: 2011-09-26

应该也要对控件进行定义，否则运行不了

作者: zpzpzp198611 发布时间: 2011-09-26

select (a.A3>b.B3) form where (a.A1=b.A1) and (a.A2=b.A2)

作者: Veron_04 发布时间: 2011-09-26

strsql=""
strsql=strsql & " SELECT IIf(A.A3>B.B3,'正确','错误') AS 查询结果 " & vbcrlf
strsql=strsql & " FROM A, B " & vbcrlf
strsql=strsql & " WHERE A.A1=B.A1 " & vbcrlf
strsql=strsql & " AND A.A2=B.A2 " & vbcrlf
strsql=strsql & " AND A.A1= #" & datDate & "# " & vbcrlf
strsql=strsql & " AND A.A2= '" & strName & "' " & vbcrlf

红色的用你的控件名替换

作者: jhone99 发布时间: 2011-09-26

按你的说法我这样code,建2个文本框，一个按钮，但是点了按钮不响应

Private Sub Command63_Click()
On Error GoTo Err_Command63_Click

Dim strsql As String

strsql=""
strsql=strsql & " SELECT IIf(A.A3>B.B3,'正确','错误') AS 查询结果 " & vbcrlf
strsql=strsql & " FROM A, B " & vbcrlf
strsql=strsql & " WHERE A.A1=B.A1 " & vbcrlf
strsql=strsql & " AND A.A2=B.A2 " & vbcrlf
strsql=strsql & " AND A.A1= #" & datDate & "# " & vbcrlf
strsql=strsql & " AND A.A2= '" & strName & "' " & vbcrlf

Exit_Command63_Click:
Exit Sub

Err_Command63_Click:
MsgBox Err.Description
Resume Exit_Command63_Click

End Sub

作者: zpzpzp198611 发布时间: 2011-09-26

引用 6 楼 jhone99 的回复:
strsql=""
strsql=strsql & " SELECT IIf(A.A3>B.B3,'正确','错误') AS 查询结果 " & vbcrlf
strsql=strsql & " FROM A, B " & vbcrlf
strsql=strsql & " WHERE A.A1=B.A1 " & vbcrlf
strsql=st……

还在线吗？按你的方式2个文本框strName，datDate，但是按钮没有定义，请问下如何做才能使按钮响应然后弹出正确或错误的提示？

作者: zpzpzp198611 发布时间: 2011-09-26