Pomoc u ado.net (if petlja)

[ batika @ 31.08.2008. 18:18 ] @

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

[ dava @ 31.08.2008. 22:03 ] @

Moze ovako:

Code:

        private void button1_Click(object sender, EventArgs e)
        {
            if (IsInteger(TxtSifra.Text) == true)
            {
                MessageBox.Show("Integer");
            }

        }

        public static bool IsInteger(string value)
        {
            try
            {
                int i = int.Parse(value);
                return true;
            }
            catch
            {
                return false;
            }

        }

[ marko1981 @ 31.08.2008. 22:54 ] @

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

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

[ vujkev @ 01.09.2008. 01:22 ] @

Code:

dim x as integer
If integer.tryparse(TxtSifra.Text, x) = True Then ...

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

[ batika @ 03.09.2008. 08:27 ] @

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

[ Dejan Vesic @ 19.09.2008. 19:11 ] @

Nemoj ovako da radiš.

Ako je parametar Int, prvo ga konvertuj u Int; ako prođe, nastaviš dalje; ako ne, prekineš update i javiš korisniku da mora da unese stvari korektno.

Ovo uradi za SVAKI parametar u proceduri ili dodaj validaciju na svaku od tekst kontrola.