请教一个有关ODBC API开发的问题

在以下代码中。。    
   
  Public   Function   GetPwd(ByVal   TmpUser   As   String)   As   String    
      UserName   =   TmpUser    
         
      DB_Connect    
         
      SQLstmt   =   "SELECT   Pwd   FROM   LudaUsers   WHERE   UserName='"   _    
                      +   Trim(TmpUser)   +   "'"    
      OdbcExt   (SQLstmt)    
      If   SQLFetch(Hstmt)   =   SQL_NO_DATA_FOUND   Then    
          GetInfo   =   ""    
          Exit   Function    
      Else    
          ColVal   =   String(400,   0)    
          Rc   =   SQLGetData(Hstmt,   1,   1,   ColVal,   Lench(ColVal),   pcblen)   '此处出现错误    
  'ColVal显示异常。Rc=0。pcblen为正常值   ＝9。帮帮我啊！！！！！！ColVal错误啊。。    
          Pwd   =   TrimStr(ColVal)    
      End   If    
             
      Rc   =   SQLFreeStmt(Hstmt,   SQL_DROP)    
         
      GetPwd   =   Pwd    
      DB_Disconnect    
  End   Function 问题点数：0、回复次数：0Top

相关问题

• db
• sql
• colval
• tmpuser
• getpwd
• pcblen
• hstmt
• sqlstmt
• pwd
• rc

• 帖主：gwwgj

• SQL Server类图书