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的编程摸不到头脑啊！并且有些事很容易的，但是却把它们的代码变成复杂，也去想一些不能实现的东西啊！
没分了，楼主多来点分！
来接点分
......
比如说要在1表中的第三列第二行单元中输入“一二三”一要粗体宋体12号字，二 不要粗体 15号字 三斜体5号字
代码应该怎么打？
LZ指的是个什么表格控件呢，貌似只能设置整个表的字体，或者某几行或几列，没有单独设� ......
用vc编写的dll在debug模式和release模式下启动vb的exe程序调用vc的dll可以得到正确结果，但是如果直接双击vb的exe程序调用dll报错，在dll内部添加messagebox后发现只要在函数内部声明std::string类型的变量就会出现� ......
