Merhaba arkadaşlar, kullanıcı girişi yapıyorum fakat giriş yaparken veritabındaki kullanıcı kodu, kullanıcı adı ve şifresi eşleşen kullanıcı anaform'a aktarıyorum ama kullanıcı kodu ve kullanıcı adı comboboxlardan gelen değerleri alıyor. Şifreyi textboxtan gelen değeri alacaktır. Textbox boş geçtiğimde kullanıcı girişi yapılmaktadır. Onun için nasıl bir şart uygulamam gerekiyor. Yaptığım projenin kodları aşağıdadır. Şimdiden teşekkür ederim.
Private Sub btnLogin_Click(sender As Object, e As EventArgs) Handles btnLogin.Click Dim usercode, userdescription, userpass As String usercode = cmbKullaniciKod.Text userdescription = cmbKullaniciAd.Text userpass = txtUserPassword.Text Try baglanti.ConnectionString = ("Data Source=LENOVO_PC\SQLEXPRESS;Initial Catalog=POSTAKIPSISTEM;Integrated Security=True") komut.CommandText = "SELECT * FROM [USER] WHERE USER_CODE=@UCODE AND USER_DESCRIPTION=@UDESCRIPTION AND USER_PASSWORD=@UPASSWORD" baglanti.Open() komut.Connection = baglanti komut.Parameters.AddWithValue("@UCODE", usercode) komut.Parameters.AddWithValue("@UDESCRIPTION", userdescription) komut.Parameters.AddWithValue("@UPASSWORD", userpass) adap.SelectCommand = komut adap.Fill(dsAdo) Dim count = dsAdo.Tables(0).Rows.Count If count > 0 Then MsgBox(cmbKullaniciAd.Text + " Hoşgeldiniz") frmAnaform.Show() Me.Hide() Else MsgBox("Kullanıcı Adınız veya Parolanız Hatalı", MsgBoxStyle.Critical) End If baglanti.Close() Catch ex As Exception MessageBox.Show("DB ye ulaşılamadı", "Uyarı", MessageBoxButtons.OK, MessageBoxIcon.Warning) End Try End SubSaygılarımla