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
相关问答：
希望大家能够帮我下.感谢了..
源码传在大米盘 VB6 的源码 http://www.damipan.com/file/3wNoKLW.html
转为VB.NET源码.
小弟完全是新手 不懂的说.麻烦各位帮忙一下
我的EMAIL是:4452 ......
在vb这编程里似乎有很多的东西是相联系的，为什么有些人对vb的编程摸不到头脑啊！并且有些事很容易的，但是却把它们的代码变成复杂，也去想一些不能实现的东西啊！
没分了，楼主多来点分！
来接点分
......
可以吗
好奇怪的题目额！！
可以告诉我们你到底想问什么 ？
2分给我的话就可以。
........................可以吗
可以!
纠结，
29. vb可以这样做不？ ( H )√
A. ......
数据库貌似已经连接上了vb，，可是为什么数据库上的数据不能显示在框表中捏？？？
具体的代码？
无码无真相！
你把篮球抱在怀里，就能远投得3分？
麻烦各位大虾了啊。。。
Private Sub Comm1_Click()
& ......
我在类中有一个函数
Public Function DownloadAdditionalSite(SiteName As siteconfig, Directory As String, ymd As String) As Boolean
siteconfig是我自定义类型的数据，为什么会提示“只有在公共对象模块中� ......
