Fehlermeldung!

01/05/2010 - 11:43 von H.Blaese | Report spam
Versuche gerade den Datenzugriff von hier nach zustellen:

http://openbook.galileocomputing.de...332006e943



Bekomme aber Fehlermeldung:
"Option Strict On" làsst keine Operanden des Typs "Object" für den
&-Operator zu.

Dabei wird Zeile 19 Spalte 34 reader("name")markiert??


Private Sub cmdSehen_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles cmdSehen.Click

Dim con As New SqlServerCe.SqlCeConnection
Dim cmd As New SqlServerCe.SqlCeCommand
Dim reader As SqlServerCe.SqlCeDataReader

Try
con.ConnectionString = "Data Source=firma.sdf"
cmd.Connection = con
cmd.CommandText = "select * from personen"
con.Open()

reader = cmd.ExecuteReader()
lstTab.Items.Clear()
Do While reader.Read()
lstTab.Items.Add(reader("name") & " # " _
& reader("vorname") & " # " _
& reader("personalnummer") & " # " _
& reader("gehalt") & " # " _
& reader("geburtstag"))
Loop
reader.Close()
con.Close()
Catch ex As Exception
MsgBox(ex.Message)
End Try

End Sub

Da aber strict on eine gute Sache ist und Fehler sofort erkennt, wollte
ich den Fehler beseitigen, komme aber nicht weiter.

Gruß Hans
 

Lesen sie die antworten

#1 Ulrich Höltje
02/05/2010 - 06:09 | Warnen spam
Am 01.05.2010 11:43, schrieb H.Blaese:
Versuche gerade den Datenzugriff von hier nach zustellen:

http://openbook.galileocomputing.de...332006e943




Bekomme aber Fehlermeldung:
"Option Strict On" làsst keine Operanden des Typs "Object" für den
&-Operator zu.

Dabei wird Zeile 19 Spalte 34 reader("name")markiert??


Private Sub cmdSehen_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles cmdSehen.Click

Dim con As New SqlServerCe.SqlCeConnection
Dim cmd As New SqlServerCe.SqlCeCommand
Dim reader As SqlServerCe.SqlCeDataReader

Try
con.ConnectionString = "Data Source=firma.sdf"
cmd.Connection = con
cmd.CommandText = "select * from personen"
con.Open()

reader = cmd.ExecuteReader()
lstTab.Items.Clear()
Do While reader.Read()
lstTab.Items.Add(reader("name") & " # " _
& reader("vorname") & " # " _
& reader("personalnummer") & " # " _
& reader("gehalt") & " # " _
& reader("geburtstag"))
Loop
reader.Close()
con.Close()
Catch ex As Exception
MsgBox(ex.Message)
End Try

End Sub

Da aber strict on eine gute Sache ist und Fehler sofort erkennt, wollte
ich den Fehler beseitigen, komme aber nicht weiter.

Gruß Hans



Hallo Hans

Versuchs mal mit...

Do While reader.Read()
lstTab.Items.Add(reader("name").ToString & " # " _
& reader("vorname").ToString & " # " _
& reader("personalnummer").ToString & " # " _
& reader("gehalt").ToString & " # " _
& reader("geburtstag").ToString)
Loop

ggf.muß man aber in den richtigen Typ konvertieren...

'NVarChar?
Dim _name as string = reader("name").ToString
Dim VorName As String = reader("vorname").ToString

SqDbType.Int?
Dim personalnummer as Integer = Cint(reader("personalnummer"))

SqDbType.Money?
Dim gehalt As Decimal= CDec(creader("gehalt"))

SqDbType.DateTime?
Dim geburtstag As DateTime= CType(reader("geburtstag",DateTime)

Gruß Ulrich

Ähnliche fragen