Robot连接sqlserver数据库

  

建sqlserver数据源：

在控制面板->管理工具->数据源中建一个数据源，数据源名为zlsqldb,与图中的名字不同。

测试通过就建好数据源了。

 

Robot脚本：

Robot帮助中的脚本，我只改了一下数据源的名字，先熟悉一下，运行该脚本时会让输入连接数据库的用户和密码，这就对了，哈哈哈。

'$Include "sqautil.sbh"

 

Sub main

'   Declarations

'

    Dim outputStr As String

    Dim connection As Long

    Dim prompt As Integer

    Dim datasources(1 To 50) As Variant

    Dim retcode As Variant

    Dim action1 as Integer

    Dim qualifier as String

         

    prompt = 5

'   Open the datasource "SblTest"

    connection = SQLOpen("DSN=zlsqldb", outputStr, prompt:=2)

 

    action1 = 1 ' Get the names of the ODBC datasources

    retcode = SQLGetSchema(connection:=connection,action:=1, qualifier:=qualifier, ref:=datasources())

'   Close the datasource connection

    retcode = SQLClose(connection)

  

End Sub