# VB60中如何存取Num型态栏位的内容

Posted by 小田 on August 04, 1999 at 11:00:40:

小弟使用VB60提供的Data Environment物件，产生一个DE Connection物件，连到后端DB2资料库伺服器，再利用DECommand物件，使用SQL指令从某个Table中取出资料，SQL内容在设计阶段已经写死，假设表格名称为Table1，栏位名称为Field1，型态为Num(15,4)，SQL内容为：
select Field1 from Table1
程式码的内容为：
Dim num As Double
DataEnvironment1.DEConnection1.Open
DataEnvironment1.rsDECommand1.Open
num = DataEnvironment1.rsDECommand1.Fields(0).Value
DataEnvironment1.rsDECommand1.Close
DataEnvironment1.DECOnnection1.Close
结果DECommand1物件执行Open动作无法成功，检查其错误讯息内容为：
[IBM][CLI Driver]CLI0150E驱动器未备妥。SQLSTATE=S1C00
PS：当栏位型态为INTEGER时，程式可以正常Work，遇到Num型态时就会抓不回来，请问要如何解决，谢谢！

Follow Ups: