资讯   |   开发   |   选机中心   |   产品大全 | IBM | 惠普 | 联想 | 戴尔 | 苹果 | 神舟
更多: | 华硕 | 明基 | 方正 | 紫光 | TCL | 夏新 | 联宝 | 宏碁 | 七喜 | 长城 | 清华同方 | 海尔 | 三星 | 东芝 | 索尼 | 富士通 | LG | 技术 | ddnoon
当前位置:笔记本 > 软件开发 >
Advertisement
文章正文

一分钟,让你赚一百分

类型:转载   责任编辑:asp.net   日期:2007/05/23


热门软件下载:


   

帮我写了一个函数   用来检查表中是否存在某条记录  
   
  存在返回真,不存在假.  
  我写的老是提示什么类型   DBNull   无法转换   到   integer    
  哪里错了,  
    Public   Function   Exist(ByVal   strSql   As   String)   As   Boolean    
          //注:   strsql="select   *   from   customers   where   id=00001"  
                  Dim   myCmd   As   New   OleDbCommand  
                  Try  
                          myCmd.CommandText   =   strSql  
                          myCmd.Connection   =   cn  
                          myCmd.CommandType   =   CommandType.Text  
                        If   myCmd.ExecuteNonQuery   Then  
                                  Return   True  
                          Else  
                                  Return   False  
                          End   If  
                  Catch   ex   As   Exception  
                          MsgBox(ex.ToString)  
                  Finally  
                          myCmd.dispose()  
                  End   Try  
          End   Function

网友回答:

发表者:zyw2833

Public   Function   Exist(ByVal   strSql   As   String)   As   Boolean    
                  strsql="select   count(id)   from   customers   where   id=00001"  
                  Dim   myCmd   As   New   OleDbCommand  
                  Try  
                          myCmd.CommandText   =   strSql  
                          myCmd.Connection   =   cn  
                          myCmd.CommandType   =   CommandType.Text  
                          dim   intC   as   integer=Convert.ToInt32(objCmd.ExecuteScalar())  
                        If   intC=0   Then  
                                  Return   false  
                          Else  
                                  Return   true  
                          End   If  
                  Catch   ex   As   Exception  
                          MsgBox(ex.ToString)  
                  Finally  
                          myCmd.dispose()  
                  End   Try  
          End   Function  
 


 

 
热门推荐笔记本: IBM笔记本
相关文章:
webmaster:popbb@126.com   最佳浏览:1024X768 MSIE
©2007 popbb.net All Rights Reserved