DUVIDA SOBRE DATATABLE PRINCIPIANTE
Possuo o seguinte código :
Dim Uconexao As OleDbConnection = New OleDbConnection("Provider=IBM.UniOLEDB; Data Source=" & CmbServidor.Text & ";user id=AGOADM;password=CCss58v;")
Dim Ucomando As OleDbCommand = Uconexao.CreateCommand()
If ParteComando = "" Then
Ucomando.CommandText = "SELECT COMANDO from V_VUCL_COMANDO WHERE USUARIO = '" & Usuario & "' order BY DATA_COMANDO DESC, HORA DESC"
Else
Ucomando.CommandText = "SELECT COMANDO from V_VUCL_COMANDO WHERE USUARIO = '" & Usuario & "' AND COMANDO LIKE '%" & ParteComando & "%' order by DATA_COMANDO DESC, HORA DESC"
End If
Uconexao.Open()
Dim Ds As New DataSet
Dim DA_Comando As New OleDbDataAdapter(Ucomando)
DA_Comando.Fill(Ds)
Dim VUCL_COMANDO As New DataTable
DA_Comando.Fill(VUCL_COMANDO)
Até ai beleza, agora eu quero percorrer todos os itens selecionados, como faço ?
Dim Uconexao As OleDbConnection = New OleDbConnection("Provider=IBM.UniOLEDB; Data Source=" & CmbServidor.Text & ";user id=AGOADM;password=CCss58v;")
Dim Ucomando As OleDbCommand = Uconexao.CreateCommand()
If ParteComando = "" Then
Ucomando.CommandText = "SELECT COMANDO from V_VUCL_COMANDO WHERE USUARIO = '" & Usuario & "' order BY DATA_COMANDO DESC, HORA DESC"
Else
Ucomando.CommandText = "SELECT COMANDO from V_VUCL_COMANDO WHERE USUARIO = '" & Usuario & "' AND COMANDO LIKE '%" & ParteComando & "%' order by DATA_COMANDO DESC, HORA DESC"
End If
Uconexao.Open()
Dim Ds As New DataSet
Dim DA_Comando As New OleDbDataAdapter(Ucomando)
DA_Comando.Fill(Ds)
Dim VUCL_COMANDO As New DataTable
DA_Comando.Fill(VUCL_COMANDO)
Até ai beleza, agora eu quero percorrer todos os itens selecionados, como faço ?
for each oRows as datarow in datatable.rows
'acho q sera preciso importar o System.data
'codigo aqui
msgbox oRow(0).value 'fiz de cabeça... pode conter erros
next
'acho q sera preciso importar o System.data
'codigo aqui
msgbox oRow(0).value 'fiz de cabeça... pode conter erros
next
Tópico encerrado , respostas não são mais permitidas