Day2-6测试积点任务

测试积点老人

问题：
求助：ado连接mysql不能读取decimal类型字段

1. Dim Cnn, Rst, strCnn,d_firstPay
   
2. strCnn = "DRIVER={MySQL ODBC 3.51 Driver};SERVER=192.168.0.210;DATABASE=TrademarkManager2;USER=trademarkmanager;password=123456"
   
3. Set Cnn = CreateObject("ADODB.connection")
   
4. Cnn.Open strCnn
   
5. Set Rst = CreateObject("ADODB.Recordset")
   
6. Rst.Open "select firstpay from adm_contract", Cnn,1,1
   
7. Rst.MoveLast
   
8. d_firstPay = Rst.Fields("firstpay")   
   
9. Rst.Close
   
10. Cnn.Close
    
11. Set Rst = Nothing
    
12. Set Cnn = Nothing
    
13. 
    

复制代码

firstpay字段类型是decimal，我试了其它类型的字段都可以取出，请问如何取出这个字段里的数据呢？

提示的错误是：[Microsoft][ODBC 驱动程序管理器] 程序类型越界