|
Dobrý den, při čtení dat z access se stane, že v daném řádku databáze není záznam, tedy je tam předpokládám "Empty". Podotýkám, že databáze má víc sloupců, ale já potřebuji načíst do proměnné jen ten jeden sloupec, kde zrovna nemusí být nějaký záznam. Níže uvedený kód v tom případě - CAStabII(pocitadlo) = reader.GetString(0) - skončí s chybou a dále již načítání nepokračuje, ačkoliv na dalších řádcích ještě záznamy (data) jsou. Lze psím toto nějak ošetřit?
Dim queryString As String = "SELECT CAS FROM AnnexII ORDER BY Reference ASC"
Dim connection = New OleDbConnection(connectionString)
Dim command = New OleDbCommand(queryString, connection)
connection.Open()
Dim reader As OleDbDataReader = command.ExecuteReader()
Dim pocitadlo As Integer = 0
Dim CAStabII(10000)
Try
While reader.Read
CAStabII(pocitadlo) = reader.GetString(0)
pocitadlo += 1
End While
Catch When reader.GetString(0) = Nothing
MsgBox("Záznam CAS nic neobsahuje")
Catch ex As Exception
MsgBox("Záznam: " & pocitadlo & vbCrLf & CAStabII(pocitadlo))
End Try
reader.Close()
connection.Close()
|