IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

Kod:
 

 

Set RS = New ADODB.Recordset

Set RS1 = New ADODB.Recordset

 

 

SQL = "select * from rs_kullanici where kullanici_kullaniciadi='" & Text1.Text & "'"

RS.Open SQL, CON, 1, 3

If RS.RecordCount = 0 Then

    hata = MsgBox("Kullanıcı Adı  Yanlış", vbCritical + vbOKOnly, "Yanlış Giriş")

    If hata = 6 Then

        Text1.SetFocus

    End If

Else

    SQL1 = "select * from rs_kullanici where kullanici_sifre='" & Text2.Text & "'"

    RS1.Open SQL1, CON, 1, 3

    If RS1.RecordCount = 0 Then

        hata1 = MsgBox("Kullanıcı  Şifre Yanlış", vbCritical + vbOKOnly, "Yanlış Giriş")

        If hata1 = 6 Then

            Text1.SetFocus

        End If

    Else

        AnaForm.Show

        Unload Me

    End If

End If