Listbox

hendrikbez

When I start my program, it gives me error on this line. .SubItems.Add(MyDataReader("A2".ToString)) "Overload resolution failed because no Public "add" can be called with these arguments" Don't know what hte problem is........ Here are the code Public Function FillListBox(ByVal Sqlstring As String) ListBox1.Items.Clear() ListView1.Items.Clear() Dim OleDbConn As OleDbConnection = New OleDbConnection(ConnString) OleDbConn.Open() Dim MyDataReader As OleDbDataReader Dim MyOleDbCommand As OleDbCommand = New OleDbCommand() Dim MyDataSet As DataSet = New DataSet() Dim MyOleDataAdapter As OleDbDataAdapter = New OleDbDataAdapter() MyOleDataAdapter.SelectCommand = New OleDbCommand(Sqlstring, OleDbConn) MyOleDataAdapter.Fill(MyDataSet) MyOleDbCommand.Connection = (OleDbConn) MyOleDbCommand.CommandText = Sqlstring MyDataReader = MyOleDbCommand.ExecuteReader Do While MyDataReader.Read ListBox1.Items.Add(MyDataReader("Luidraad")) Dim MyItem = ListView1.Items.Add(MyDataReader("luidraad".ToString)) With MyItem .SubItems.Add(MyDataReader("A1".ToString)) .SubItems.Add(MyDataReader("A2".ToString)) .SubItems.Add(MyDataReader("A2".ToString)) .SubItems.Add(MyDataReader("A3".ToString)) .SubItems.Add(MyDataReader("A4".ToString)) .SubItems.Add(MyDataReader("A5".ToString)) .SubItems.Add(MyDataReader("A6".ToString)) .SubItems.Add(MyDataReader("A7".ToString)) .SubItems.Add(MyDataReader("A8".ToString)) .SubItems.Add(MyDataReader("A9".ToString)) .SubItems.Add(MyDataReader("A10".ToString)) End With Loop MyDataReader.Close() OleDbConn.Close() OleDbConn.Dispose()

Lost User

.SubItems.Add(MyDataReader("A2".ToString**()**) :) BTW, "A2" is already a string?

I are troll :)

Luc Pattyn

Eddy Vluggen wrote:

"A2" is already a string?

it is a short string. :)

Luc Pattyn [Forum Guidelines] [My Articles]

- before you ask a question here, search CodeProject, then Google - the quality and detail of your question reflects on the effectiveness of the help you are likely to get - use the code block button (PRE tags) to preserve formatting when showing multi-line code snippets

Chinners

Perhaps: .SubItems.Add(MyDataReader("A2").ToString) ?

Lost User

I had hoped never to be reminded of the shortstring again, along with the existence of the AnsiString, the PChar, the.. :((

I are troll :)

hendrikbez

Thank you it works :)