我用API访问SQL SERVER 2000数据库,,
连接,,断开都没问题,
就是SQLExecDirect()函数返回值为 -1,,
请各位高手帮帮忙!!
急用!!!我不知问题在什么地方!!所有的自定义函数,,模块,都查了,
已经二天了!!!
如果这个问题不好回答 ,,
那就告诉我关于这方面应注意的问题吧?
小弟不胜感激!!
连接,,断开都没问题,
就是SQLExecDirect()函数返回值为 -1,,
请各位高手帮帮忙!!
急用!!!我不知问题在什么地方!!所有的自定义函数,,模块,都查了,
已经二天了!!!
如果这个问题不好回答 ,,
那就告诉我关于这方面应注意的问题吧?
小弟不胜感激!!
解决方案 »
- vb连接SQL后,对记录集的操作总出问题!
- 动态生成的控件怎样绑定事件
- Delphi代码转换VB,初学VB !
- 问,该网页为什么在webbrowser中的提交按钮就失效?
- 我想实现 定时自动下载ftp目录下的子目录和文件请大家给建议!
- 我想用菜单自动生成全县系统,如何得到当前菜单的父菜单,能像树一样处理?
- 如何将双引号作为字符显示
- 急求:vb中spread中设置两列行头 如何让两列行头 颜色不一样
- 有谁可以帮我看看错在哪,我找不出原因!
- 谁有层序遍历XML文档DOM树的VB代码?高分求教!!!
- 怎样在DATEREPORT的SQL Commands中使用From1中的Text1.text作条件?
- 您好﹗我现在也已经把数据取到MSFLEXGRID中了﹐怎幺样才能以报表的格式打印出来?(在线等待)
另外我想知道你的sql是单机的还是
'初始化
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)