16604.html

来自「VB技巧问答10000例,是一个教程」· HTML 代码 · 共 22 行

HTML
22
字号
<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 + =
减小字号Ctrl + -
显示快捷键?