|
代码如下(手工编写)：
$Include "sqautil.sbh"
Sub Main
Dim Result As Integer
Dim connection As Long
Dim retcode As Variant
dim outputstr,query as string
Dim out(1 To 1,1 to 1) As Variant
'通过ODBC连接到数据库，要先创建ODBC
connection = SQLOpen("DSN=server;UID=sa;PWD=998855", outputstr,)
'查询语句
query = "select password from customerinfo where userid=100"
'执行查询
retcode = SQLExecQuery(connection,query)
'取回结果,结果存入二维数组
retcode = SQLRetrieve(connection,out())
'取回结果,如果结果存入文件请使用
'retcode = SQLRetrieveToFile(connection,"c:\test.txt")
'显示结果
msgbox out(1,1)
'关闭数据库连接
retcode = SQLClose(connection)
End Sub
原始链接:http://blog.51testing.com/?84226/action_viewspace_itemid_1733.html
|
