[ HanselBG @ 10.04.2006. 02:40 ] @
Jel moze neko ovaj kod da mi prepravi za C#?Napravio sam ga u Visual Basicu...počeo sam da radim sa C# pa hocu sve odmah da znam :) u pitanju je jedan text box u koji se ubacuje ID a u druga dva text boxa se klikom na dugme pojavljuje marka i tip. Option Compare Database Dim ws As DAO.Workspace Dim db As DAO.Database <----kako se ova prva tri reda pišu u C#,mislim kako sve ovo definišem. Dim rs As DAO.Recordset Dim upit As String Dim sifra As Integer Private Sub cmdPronadji_Click() Me.txtSifra.SetFocus <---ovo kako ide u C# mi je bitno da znam If IsNumeric(Me.txtSifra.Text) Then <---kao i ovaj uslov, sifra = CInt(Me.txtSifra.Text) upit = "select auto.marka,auto.tip from auto where auto.id= " & sifra <---da li je "&" isto i u C# Set ws = DBEngine.Workspaces(0) Set db = ws.OpenDatabase(CurrentProject.Path & "\novabaza1.mdb") <---cela ova cetri reda,sigurno se ova cetri reda u C#-u rade preko data adaptera i data set-a Set rs = db.OpenRecordset(upit) If rs.RecordCount = 0 Then MsgBox "Ne postoji auto sa datim IDBR-om", vbOKOnly, "REZULTAT PRETRAGE" <---ovo i nije bitno Else Me.txtMarka.SetFocus txtMarka.Text = rs!marka Me.txtTip.SetFocus txtTip.Text = rs!Tip End If rs.Close db.Close Else MsgBox "U polje IDBR morate uneti broj!!!", vbOKOnly, "GREŠKA!!!" End If Unapred hvala! |