datareader

[Nasty2]

hey,

got the following routine that checks if the first word in a listview is the same as the first word in a DB table.
My problem is that if they are not the same i want the routine to check the next listview record with the same DB record.
in other words, i need to push back the datareader one step (if possible) OR i'll need to change the way im looping
Dim a As Integer = 0
Dim dbReader As OleDb.OleDbDataReader
dbReader = cmd.ExecuteReader

If dbReader.HasRows Then
Do While dbReader.Read
a = a + 1
If dbReader("ReportName") = Me.ListView1.Items(a - 1).Text Then
If dbReader("View") = True Then
Me.ListView1.Items.Item(a - 1).Checked = True
End If
If dbReader("View") = False Then
Me.ListView1.Items.Item(a - 1).Checked = False
End If
Else
Me.ListView1.Items.Item(a - 1).Checked = False
End If
Loop
End If

thanks

[DeepButi]

Nasty2,
not sure about your intentions, but something like this?
Do While dbReader.Read
For a = 0 to ListView1.Items.Count -1
If dbReader("ReportName") = ListView1.Items(a).Text Then
ListView1.Items.Item(a).Checked = dbReader("View")
Exit For
Else
ListView1.Items.Item(a).Checked = False
End If
Next
Loop
Hope it helps

---- Edited ----
Ooooops, no. Very bad code, don't use it :sick:. Hopefully my boss will not see it or my working days will be short :thumbd:. Only last record is usefull when done that way, forget it.

What do you want to do when you get a match? Read next record and continue analisis from the item where the last match ocurred? What if the match is on the last item?

[Boumxyz2]

I don't understand much your request...

From what I understand you're trying to get a Match in a datareader from a Listview item....

Why not transform the datareader in a dataset and then use the dataset
filter options ?

This is an example : Sorry for the French comments



'*******************************************************************************
'* *
'* Nom de la procédure : *
'* SQLProcData *
'* *
'* But : *
'* Excécute une procédure stockée qui retourne des données *
'* *
'* Parametres : *
'* *
'* byval ConnString as string : La connection string a utiliser. *
'* *
'* byref Reader as SQLClient.SqlDatareader : Le reader où on met les *
'* données *
'* *
'* *
'* *
'*******************************************************************************
Public Sub SQLProcData(ByVal ConnString As String, _
ByRef ds As DataSet, _
ByRef conn As SqlClient.SqlConnection, _
ByRef SQLProcsParams As Collection, _
ByVal ProcName As String)
Dim read As SqlClient.SqlDataReader
Dim cmd As New SqlClient.SqlCommand
Dim Param As SqlClient.SqlParameter
Dim dataTbl As DataTable
Dim datarw() As Object
Dim nwCol As DataColumn
Dim NwTable As DataTable
If conn Is Nothing Then
conn = New SqlClient.SqlConnection
Else
conn.Dispose()
conn = New SqlClient.SqlConnection
End If
conn.ConnectionString = ConnString
cmd.Connection = conn
cmd.CommandType = CommandType.StoredProcedure
cmd.CommandText = ProcName
Dim i As SQLParam
' NOTE SQLPROCSPARAM IS A CLASS I MADE TO HOLD STORED PROC PARAMS
For Each i In SQLProcsParams
Param = cmd.CreateParameter()
Param.ParameterName = i.ParamName
Param.SqlDbType = i.ParamType
Param.Value = i.ParamValue
cmd.Parameters.Add(Param)
Next
conn.Open()
Try
read = cmd.ExecuteReader(CommandBehavior.Default)
Catch e As SqlClient.SqlException
' CHANGE THIS FOR YOUR OWN SAKES

End Try
' Remplir le dataset à partir du reader
If ds Is Nothing Then
ds = New DataSet
End If
If read.HasRows Then
dataTbl = read.GetSchemaTable()
NwTable = New DataTable
For Each j As DataRow In dataTbl.Rows
nwCol = New DataColumn
nwCol.Unique = CBool(j.Item("IsUnique"))
nwCol.DataType = CType(j.Item("Datatype"), System.Type)
nwCol.ColumnName = CStr(j.Item("ColumnName"))
nwCol.AllowDBNull = CBool(j.Item("AllowDbNull"))
NwTable.Columns.Add(nwCol)
Next
ReDim datarw(NwTable.Columns.Count - 1)
While read.Read()
read.GetValues(datarw)
NwTable.Rows.Add(datarw)
End While
ds.Tables.Add(NwTable)
End If
read.Close()
conn.Close()

End Sub

[Nasty2]

Solved it with the following code:

If dbReader.HasRows Then
Do While dbReader.Read
For Each lvi As ListViewItem In ListView1.Items
If dbReader("ReportName") = lvi.Text Then
If dbReader("View") = True Then
lvi.Checked = True
Else
lvi.Checked = False
End If
End If
Next
Loop
End If

Thanks anyway for your quick response