Sql 循环动作

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

公共函数TestMainByVal参数作为对象作为对象 StartAppURL “HTML浏览器” 浏览器\u HtmlBrowserDocument\u主页，默认\u标志。最大化 按钮\添加新档案提交。单击 '这里是读取行和循环开始的位置' Text_Ctl00MainContentProfileNa.单击第6、13点 浏览器\u HtmlBrowserDocument\u Http1921685526UserCon，默认\u标志。InputCharsdataBase\u行\u值 表1.ClickAtCell_ Atrowatinex0_ AT1 '这里是读取所有行后循环结束的位置' 一无所获 端函数 我有一个想法来实现这一点，首先进行数据库连接，然后创建循环-

作为字符串的Dim pName 作为数据集的Dim数据 Dim datar作为数据行 Dim oledat作为SqlDataAdapter oledat=新的SQLDataAdapter从数据库中选择列，ConnectionString oledat.Filldatas 对于datas.table0.Rows中的每个datar pName=datar.ItemPROFILENAME Text_Ctl00MainContentProfileNa.单击第6、13点 浏览器\u HtmlBrowserDocument\u Http1921685526UserCon，默认\u FLAGS.InputCharspName 表1.ClickAtCell_ Atrowatinex0_ AT1 下一个

---

然而，这是破坏性的，即使VisualStudio中没有错误，也只有一个警告，即在为数据赋值之前使用了数据。哪里出了问题？

我认为您必须在使用新数据集之前初始化它。例如：

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

---

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

我相信您必须在使用新数据集之前初始化它。例如：

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

---

如果这不起作用，请让我知道。

当你说这是破坏时，你是什么意思。运行时是否出现错误？如果是，错误是什么。当调试它不运行时，它只是说有构建错误，我用C编程，如果有错误，它会这样说。我正在使用IBM的rational tester软件生成脚本。那么构建错误是什么呢？你说你刚才有一个警告——当你说这是破坏你的意思时，这不会阻止它编译。运行时是否出现错误？如果是，错误是什么。当调试它不运行时，它只是说有构建错误，我用C编程，如果有错误，它会这样说。我正在使用IBM的rational tester软件生成脚本。那么构建错误是什么呢？你刚才说你有一个警告-这不会阻止它编译