我用API访问SQL SERVER 2000数据库,,
连接,,断开都没问题,
就是SQLExecDirect()函数返回值为  -1,,
请各位高手帮帮忙!!
急用!!!我不知问题在什么地方!!所有的自定义函数,,模块,都查了,
已经二天了!!!
如果这个问题不好回答 ,,
那就告诉我关于这方面应注意的问题吧?
  小弟不胜感激!!
                            

解决方案 »

  1.   


    另外我想知道你的sql是单机的还是
      

  2.   

    看看
    '初始化
    dim rc as long
    dim henv as long
    rc=sqlallocenv(henv)'获得连接句柄
    dim hdac as long
    rc=sqlallocconnect(henv,hdac)
    '建立连结
    dim dsn as string,uid as string,pwd as string
    dsn="xxx"
    uid="xxx"
    pwd="xxx"
    rc=sqlconnect(hdac,dsn,len(dsn),uid,pwd,len(pwd))
    '存取数据
    dim hstmt as long
    rc=sqlallocstmt(hdbc,hstmt)dim sqlstmt as string
    sqlstmt="select * from table"
    rc=sqlexecdirect(hstmt,sqlstmt,len(sqlstmt))'检索结果集
    dim colval as string *255
    colval=string(255,0)
    do until sqlfetch(hstmt)=sql_NO_DATA_FOUND
    rc=sqlgetdata(hstmt,i,sql_c_char,colval,len(colval),sql_null_data)
    loop'结束
    rc=sqlfreestmt(hstmt,sql_drop)
    rc=sqldisconnect(hdbc)
    rc=sqlfreeconnect(hdbc)
    rc=sqlfreeenv(henv)