Pomoc u ado.net (if petlja)

Radim aplikaciju u ado.net-u. Problem je sledeci.
Treba da kazem sledece:
If TxtSifra.Text <> integer Then ...


E kako ovo da uradim. Znaci ako nije integer radi to i to.
Hvala na odgovorima.
Pozzzz

Moze ovako:

Potpis

SELECT * FROM หน่วยงานหลัก WHERE ยสันติ LIKE 'โดย%'

Pored datog odgovora koji je korektan, možeš pogledati i ovo...

http://www.dotnetspider.com/re...g-Int-Parse-Convert-ToInt.aspx

Posle tryparse funkcije, X će biti jednak 0 (nuli) ukoliko TxtSifra.Text nije integer ili će imati konverovanu vrednost TxtSifra.Text u integer ukoliko tekst može da se konvertuje u Integer

Potpis

Naučio sam...
Da je važnije biti ljubazan nego biti u pravu

E ljudi hvala na odgovorima, ali sad imam jedan drugi problem. Naime nece da mi radi update.
Evo kod pa ako moze neko da mi objasni zasto nece.


Kod:
Private Sub BtnUpdate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnUpdate.Click
Dim pozicija As Integer
Dim objCommand As OdbcCommand = New OdbcCommand
pozicija = objCurrencyManager.Position
objConn.Open()
objCommand.Connection = objConn
objCommand.CommandText = "UPDATE predmet " & _
"SET NazivPredmeta = ?, ESPBodovi = ?, FondPredavanja = ?, FondVezbe = ?" & _
"WHERE SifraPredmeta = ?"
objCommand.CommandType = CommandType.Text



objCommand.Parameters.Add(New OdbcParameter)
objCommand.Parameters.Item(0).Direction = ParameterDirection.Input
objCommand.Parameters.Item(0).DbType = DbType.String
objCommand.Parameters.Item(0).Size = 50
objCommand.Parameters.Item(0).Value = TxtNaziv.Text


objCommand.Parameters.Add(New OdbcParameter)
objCommand.Parameters.Item(1).Direction = ParameterDirection.Input
objCommand.Parameters.Item(1).DbType = DbType.Int16
objCommand.Parameters.Item(1).Size = 11
objCommand.Parameters.Item(1).Value = TxtBodovi.Text


objCommand.Parameters.Add(New OdbcParameter)
objCommand.Parameters.Item(2).Direction = ParameterDirection.Input
objCommand.Parameters.Item(2).DbType = DbType.Int16
objCommand.Parameters.Item(2).Size = 4
objCommand.Parameters.Item(2).Value = TxtFondPredavanja.Text


objCommand.Parameters.Add(New OdbcParameter)
objCommand.Parameters.Item(3).Direction = ParameterDirection.Input
objCommand.Parameters.Item(3).DbType = DbType.Int16
objCommand.Parameters.Item(3).Size = 4
objCommand.Parameters.Item(3).Value = TxtFondVezbe.Text


objCommand.Parameters.Add(New OdbcParameter)
objCommand.Parameters.Item(4).Direction = ParameterDirection.Input
objCommand.Parameters.Item(4).DbType = DbType.Int16
objCommand.Parameters.Item(4).Size = 10
objCommand.Parameters.Item(4).Value = TxtSifra.Text


Try
objCommand.ExecuteNonQuery()
TxtStatusBar.Text = "Predmet je uspesno azuriran"
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try

objConn.Close()

PopuniPodatke()
PoveziKontrole()

objCurrencyManager.Position = pozicija
objCommand = Nothing

End Sub




On javi gresku:INPUT STRING WAS NOT IN CORRECT FORMAT