<WebMethod(Description:="Datenbankabfrage")> _Public Function Datenbank(ByVal a As String) As ArrayListDim con As New OleDbConnectionDim cmd As New OleDbCommandDim reader As OleDbDataReaderDim ergebnis As New ArrayList() con.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Documents and Settings\test\My Documents\Test.accdb" cmd.Connection = con cmd.CommandText = "select * from personen where gehalt > " & a con.Open() reader = cmd.ExecuteReader() Do While reader.Read() ergebnis.Add( reader("name") & " # " & reader("vorname") & " # " & reader("personalnummer") & " # " & reader("gehalt") & " # " & reader("geburtstag")) Loop reader.Close() con.Close() Return ergebnis End Function
Private Sub cmd_Web_alle_Daten_Click(sender As System.Object, e As System.EventArgs) Handles cmd_Web_alle_Daten.Click Dim ergebnis As Test.WebService_rüsten = New Test.WebService_rüstenDim ct, i As Integer ct = ergebnis.Datenbank(txt_Ressource.Text).Count() For i = 0 To ct - 1 lst_web_alle_daten.Items.Add(ergebnis.Datenbank(i).ToString) // Der Fehler muss hier liegen Next End Sub
ergebnis.Datenbank(i).ToString
diese Zeile ruft ja lediglich die tostring methode von arraylist auf.
ergebnis.Datenbank(i)(1) würde dir ein element aus der arraylist liefern.
und warum ist a vom typ string ?