VB 6 i VB 10
Ne znam da li je na dobrom mjestu (ako nije molim moderatore da uklone). Ja sam samo glasnik, osoba koju ovo zanima trenutno nema pristup internetu pa nemojte zamjeriti.. Mozete li mi pomoci? Ako ne, svejedno hvala.
Dolje napisan kod za VB 6 login ne radi kad se taj isti kod upise za VB 10?
Public Class frmPrijava
Private Sub cmdPrijava_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdPrijava.Click
With Adodc1
.ConnectionString = PBaza
.CommandType = ADODB.CommandTypeEnum.adCmdText
.Recordset = "Select Lozinka from korisnik where sifra ='" + LCase(txtKorisnik.Text) + "'"
.Refresh()
If .Recordset.BOF And .Recordset.EOF Then
MsgBox("neispravan upis", vbExclamation, "Warning")
Exit Sub
Else
If LCase(txtLozinka.Text) <> LCase(txtKorisnik.Text) Then
MsgBox("Neispravno", vbExclamation, "Warning")
Exit Sub
End If
End If
End With
End Sub
Private Sub frmPrijava_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
PBaza = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Yakumosan-MBP\MojTest\MojTest\Korisnik.mdb"
End Sub
End Class