代碼如下(手工編寫)：

'$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連接到javascript:;" onClick="javascript:tagshow(event, '%CA%FD%BE%DD%BF%E2');" target="_self">數據庫，要先創建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
  
    詳細的命令用法，可以查閱Robot');" target="_self">Robot在線幫助。