Convert

This is code from vb6 pocket pc 2002:

Code:

---

Private Sub izdvoji_artikl()
    Dim sql As String
    'ako nije inventura
    If SifraDokum <> 6 Then
        sql = "SELECT cijena_bezp, stanje FROM artikl WHERE sifra ='" & SifArtikla & "'"
        rsProdaja.Open sql, cnProdaja, adOpenForwardOnly, adLockReadOnly
        Label3.Caption = rsProdaja.Fields("stanje").Value
        Label6.Caption = FormatNumber(rsProdaja.Fields("cijena_bezp").Value, 2, vbTrue)
        rsProdaja.Close
    Else
        sql = "SELECT kolicina FROM stavka_rac WHERE sifra_art ='" & SifArtikla & "' AND broj_rac =" & BrojRacuna _
            & " AND SifDokum =" & SifraDokum
        rsProdaja.Open sql, cnProdaja, adOpenForwardOnly, adLockReadOnly
        If Not rsProdaja.EOF Then
            Label3.Caption = rsProdaja.Fields("kolicina").Value
        Else
            Label3.Caption = ""
        End If
        rsProdaja.Close
    End If
   
    Text1.Text = 1
    Text3.Text = 0
    Text1.SetFocus

End Sub

---

I converted to vb 2005 compact editon pocket pc like this :

Code:

---

Private Sub izdvoji_artikl()
        Dim sql As String
        'ako nije inventura
        If SifraDokum <> 6 Then
            sql = "SELECT cijena_bezp, stanje FROM artikl WHERE sifra ='" & SifArtikla & "'"
            Dim naredba As New System.Data.SqlServerCe.SqlCeCommand(sql, cnProdaja)
            Dim dr As System.Data.SqlServerCe.SqlCeDataReader = naredba.ExecuteReader
            'rsProdaja.Open(sql, cnProdaja, adOpenForwardOnly, adLockReadOnly)
            Label9.Text = dr("stanje").ToString
            Label8.Text = FormatNumber(dr("cijena_bezp").ToString, 2, vbTrue)
            dr.Close()
        Else
            sql = "SELECT kolicina FROM stavka_rac WHERE sifra_art ='" & SifArtikla & "' AND broj_rac =" & BrojRacuna _
                & " AND SifDokum =" & SifraDokum
            Dim naredba1 As New System.Data.SqlServerCe.SqlCeCommand(sql, cnProdaja)
            Dim dr1 As System.Data.SqlServerCe.SqlCeDataReader = naredba1.ExecuteReader
            'rsProdaja.Open(sql, cnProdaja, adOpenForwardOnly, adLockReadOnly)
            If dr1.Read Then
                Label9.Text = dr1("kolicina").ToString
            Else
                Label9.Text = ""
            End If
            dr1.Close()
        End If

        TextBox4.Text = (1).ToString
        TextBox5.Text = (0).ToString
        TextBox4.Focus()

    End Sub

---

Is this correct converted?

It looks ok - but more to the point - does it work?

Quote:

---

Originally Posted by petevick

It looks ok - but more to the point - does it work?

---

Jes it's work.