UC知道SQL查询返回值问题(ACCESS)
来源：百度知道 编辑：UC知道 时间：2024/06/17 02:23:35
SQL查找记录的返回值问题
Dim sq2 As String
sql2 = "SELECT SUM(车船费) FROM STD_交通 WHERE 起点="
sql2 = CStr(sql2 + Chr(39) + Me.Combo起点 + Chr(39) + " and 终点=" + Chr(39) + Me.Combo终点 + Chr(39))
Me.Combo98.RowSource = sql2
Me.Combo98.Requery
以上的运作是没问题的.因为控件是组合框,而列表框也没问题.
但到以下的文本框就出错了,出错的原因是数据相类型不相符.这个我也明白,
上面的SQL说的是一个表的型式,用单一文本型式.
但如何才能将结果赋值到文本框中呢, 高手们请指教.
Me.Text96 = sql2
Me.Text96.Requery
问题补充：由白木道人的提示: 下面这样做也是可以的
Me.List1.RowSource = sql2
Me.List1.Requery
Me.Text96 = Me.List1.Recordset(0)
Me.Text96.Requery
还有没有更好的答案. 例如.在SQL语句中直接运算成为单一值的方法
(即可以直接传递值到文本框 如: me.Text96=sql2).
Dim sq2 As String
sql2 = "SELECT SUM(车船费) FROM STD_交通 WHERE 起点="
sql2 = CStr(sql2 + Chr(39) + Me.Combo起点 + Chr(39) + " and 终点=" + Chr(39) + Me.Combo终点 + Chr(39))
Me.Combo98.RowSource = sql2
Me.Combo98.Requery
以上的运作是没问题的.因为控件是组合框,而列表框也没问题.
但到以下的文本框就出错了,出错的原因是数据相类型不相符.这个我也明白,
上面的SQL说的是一个表的型式,用单一文本型式.
但如何才能将结果赋值到文本框中呢, 高手们请指教.
Me.Text96 = sql2
Me.Text96.Requery
问题补充：由白木道人的提示: 下面这样做也是可以的
Me.List1.RowSource = sql2
Me.List1.Requery
Me.Text96 = Me.List1.Recordset(0)
Me.Text96.Requery
还有没有更好的答案. 例如.在SQL语句中直接运算成为单一值的方法
(即可以直接传递值到文本框 如: me.Text96=sql2).
你是绑定查询吧？不用绑定就好实现了。
查询结果有多条记录，你可以先查询，用循环把所有查询记录整合到一起啊
Set rs = CreateObject("ADODB.Recordset")
sql2 = "SELECT SUM(车船费) as XXX FROM STD_交通 WHERE 起点="
sql2 = CStr(sql2 + Chr(39) + Me.Combo起点 + Chr(39) + " and 终点=" + Chr(39) + Me.Combo终点 + Chr(39))
rs.Open sql2, Conn, 1, 3
If Not rs.EOF Then rs.MoveFirst
While Not rs.EOF
Temp= Temp& rs("XXX") &","
rs.MoveNext
Wend
Set Conn = Nothing
Set rs = Nothing
Me.text96.text=Temp