VB去数据库里取数的方法
我现在有一个SQL2005的数据库，里面有一个表叫做dbo.Sheet1$,这个表的表头有两个，一个是"罐高(cm)",一个是"容积（L）"在VB的窗体里有两个text文本框，text1 和 text2 ，有一个连接数据库的按钮和一个断开数据库的按钮，数据库可以连接了。还有一个确定按钮，想实现的功能是 : 在text1里输入高度值,如20，点击确定在text2里能显示出数据库里相对应的容积值，如120.小弟不知道用什么方法去实现，请解答！有代码附上最好！
str1="select 容积 from Sheet1 where 罐高=" & val(text1.text)
VB code:
private command1_click()
dim strsql as string
dim rs as new adodb.recordset
on error goto errhandle
strsql=" select * from sheet1$ where [罐高(cm)}="& text1.text &""
if rs.state<>adstateclosed then rs.close
rs.open strsql,conn,adopenkeyset,adlockreadonly
if rs.recordcount=0 then
text2.text=""
msgbox "无记录！",48,"提示"
else
if not isnull(rs![容积(L)] then
text2.text=rs![容积(L)]
else
text2.text=""
end if
endif
rs.close
exit sub
'错误处理
ErrHandle:
msgbox "查询失败，错误原因为：" & err.description,vbexclamation,"提示"
if rs.state<>adstateclosed then rs.close
exit sub
end sub
VB code
Co
相关问答：
想在warcraft3里进行写屏操作【如对战平台中的胜负提示信息】，效果就像游戏平台中一样，我试过在一窗口中写入文字，然后一直让窗口强制最前，虽然能实现文字显示，但是文字会不断闪烁，而且有不确定BUG，通过论坛搜 ......
各位大虾：
我是刚学VB，现在想用VB调用一个动态库，动态库里面有很多函数。我知道使用VB调用动态库调用函数，需要将要调用的函数在程序中声明即可，但是里面有很多函数，不会每一个函数都要声明吧。请� ......
刚接触vb6.0，有些摸不到的感觉，敬请各位大虾给点建议！！！
不会吧，推荐学习.NET。顺便推荐实用代码网站http://bingning.net/free/source/index.html。
如果没基础 就用易语言吧 中文编程呢 代码都是中文 ......
VB怎样获得鼠标处的超级连接呢？
在WebBrowser控件中有这样一个事件:StatusTextChange(index As Integer, ByVal Text As String)
它的Text参数正是鼠标处的超级连接,但问题是如果我的浏览器正� ......
只会VB，当过1年的VB程序员
现在想与时俱进，学哪门语言好呢
vb.net ,C# ,Java, 还是VC++?
哪门能够快速的上手，并转型？
C#，winform或webform都可以
vb.net
VC++
引用
VC++
麻烦能说个理由么。。� ......
