📄 16604.html
字号:
<html>
<head>
<title>VB60中如何存取Num型态栏位的内容</title>
</head>
<body bgcolor="#FFFFFF" vlink="#808080">
<center>
<h1>VB60中如何存取Num型态栏位的内容</h1>
</center>
<hr size=7 width=75%>
<hr size=7 width=75%><p>
Posted by <a href="mailto:cctyan@iii.org.tw">小田</a> on August 04, 1999 at 11:00:40:<p>
小弟使用VB60提供的Data Environment物件，产生一个DE Connection物件，连到后端DB2资料库伺服器，再利用DECommand物件，使用SQL指令从某个Table中取出资料，SQL内容在设计阶段已经写死，假设表格名称为Table1，栏位名称为Field1，型态为Num(15,4)，SQL内容为：<br> select Field1 from Table1<br> <br> 程式码的内容为：<br> Dim num As Double<br> DataEnvironment1.DEConnection1.Open<br> DataEnvironment1.rsDECommand1.Open<br> num = DataEnvironment1.rsDECommand1.Fields(0).Value<br> DataEnvironment1.rsDECommand1.Close<br> DataEnvironment1.DECOnnection1.Close<br> <br> 结果DECommand1物件执行Open动作无法成功，检查其错误讯息内容为：<br> [IBM][CLI Driver]CLI0150E驱动器未备妥。SQLSTATE=S1C00<br> <br>PS：当栏位型态为INTEGER时，程式可以正常Work，遇到Num型态时就会抓不回来，请问要如何解决，谢谢！
<br>
<br><hr size=7 width=75%><p>
<a name="followups">Follow Ups:</a><br>
<ul><!--insert: 16604-->
</ul><!--end: 16604-->
<br><hr size=7 width=75%><p>
</body></html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -