1

我是 Visual Basic 的新手，但是我需要遍历数据表中的行并在测试脚本中使用这些值，脚本如下 -

Public Function TestMain(ByVal args() As Object) As Object
    StartApp(URL)

    ' HTML Browser '
    Browser_HtmlBrowser(Document_HomePage(),DEFAULT_FLAGS).Maximize()

    Button_AddNewProfilesubmit().Click()

    'here is where the rows would be read and the loop would start'

    Text_Ctl00MainContentProfileNa().Click(AtPoint(6, 13))
    Browser_HtmlBrowser(Document_Http1921685526UserCon(), DEFAULT_FLAGS).InputChars("dataBase_Row_Value")
    Table_HtmlTable_1().Click(AtCell( _
                                    AtRow(AtIndex(0)), _
                                    AtColumn(AtIndex(1))))

    'here is where the loop would end after all rows had been read'

    Return Nothing
End Function

我有一个想法来实现这一点，首先做一个数据库连接，然后创建循环 -

    Dim pName As String
    Dim datas As DataSet
    Dim datar As DataRow
    Dim oledat As SqlDataAdapter
    oledat = New SqlDataAdapter("SELECT COLUMN FROM DATABASE",ConnectionString)
    oledat.Fill(datas)
    For Each datar In datas.Tables(0).Rows
        pName = datar.Item("PROFILENAME")

        Text_Ctl00MainContentProfileNa().Click(AtPoint(6, 13))
        Browser_HtmlBrowser(Document_Http1921685526UserCon(), DEFAULT_FLAGS).InputChars(pName)
        Table_HtmlTable_1().Click(AtCell( _
                                    AtRow(AtIndex(0)), _
                                    AtColumn(AtIndex(1))))
    Next

然而，这是破坏性的，即使 Visual Studio 中没有错误，也只有在datas分配值之前使用的警告。我哪里错了？

4

1 回答 1

1

我相信您必须在使用新数据集之前对其进行初始化。例子：

Dim ds As DataSet = New DataSet()
Dim connection As OleDb.OleDbConnection
Dim command As OleDb.OleDbCommand
Dim adapter As New OleDb.OleDbDataAdapter
Dim connString As String = "my Connection string stuff;"

connection = New OleDb.OleDbConnection(connString)
Try
    'open the connection
     If connection.State = ConnectionState.Open Then
     Else
          connection.Open()
     End If
     'fill each data table
     command = New OleDb.OleDbCommand(selectOne, connection)
     adapter.SelectCommand = command
     adapter.Fill(ds, "someTableName")
 Catch ex As OleDb.OleDbException
   'error, do something
 Finally
    'close everything down
    adapter.Dispose()
    If (Not command Is Nothing) Then
        command.Dispose()
    End If
    connection.Close()
End Try

此示例使用 OLEDB，但应该与您正在执行的操作相当。一旦你填写它，你应该能够迭代表。但是，首先，检查以确保您首先创建了一个数据集：

If (ds IsNot Nothing) Then
  'do for statement here
End If

如果这不起作用，请告诉我。

于 2013-03-07T12:03:48.010 回答