vb数据汇总

Question

部分代码如下：
dim sql as string 
sql="select sum(数据) from stock where 名称='"&combol1.text &"'"
text1.text=val(sql)
为什么text1.text 里面的值总是为0啊
各位大侠请帮帮忙啊
  在线等

Answer 1

当val遇到第一个是字母时，显示为零

Answer 2

sql在这里是不是没有执行啊！只是字符串。

Answer 3

Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim sql As Stringcn.Open "......."
sql = "select sum(数据) as ot from stock where 名称='" & combol1.Text & "'"
rs.Open sql, cn
text1.Text = rs!ot
rs.Close
Set rs = Nothing
cn.Close
Set cn = Nothing

Answer 4

sql在这里没有被执行，当然为0.