Programlama | Programlama Dilleri | C Programlama Dili |C++

Hata
  • XML Parsing Error at 1:82. Error 9: Invalid character
Anasayfa Programlama Visual Basic ?ifreleme ??lemleri


?ifreleme ??lemleri

baglan

  1.  
  2.  
  3. Set RS = New ADODB.Recordset
  4. Set RS1 = New ADODB.Recordset
  5.  
  6.  
  7. SQL = "select * from rs_kullanici where kullanici_kullaniciadi='" & Text1.Text & "'"
  8. RS.Open SQL, CON, 1, 3
  9. If RS.RecordCount = 0 Then
  10.     hata = MsgBox("Kullan?c? Ad?  Yanl??", vbCritical + vbOKOnly, "Yanl?? Giri?")
  11.     If hata = 6 Then
  12.         Text1.SetFocus
  13.     End If
  14. Else
  15.     SQL1 = "select * from rs_kullanici where kullanici_sifre='" & Text2.Text & "'"
  16.     RS1.Open SQL1, CON, 1, 3
  17.     If RS1.RecordCount = 0 Then
  18.         hata1 = MsgBox("Kullan?c?  ?ifre Yanl??", vbCritical + vbOKOnly, "Yanl?? Giri?")
  19.         If hata1 = 6 Then
  20.             Text1.SetFocus
  21.         End If
  22.     Else
  23.         AnaForm.Show
  24.         Unload Me
  25.     End If
  26. End If
  27.  
  28.  

Yorumlar (0)
Sadece kayıtlı kullanıcılar yorum yazabilir!
Son Güncelleme ( Cuma, 08 Nisan 2011 00:32 )  
amınıza koyayım amınıza koyayım amınıza koyayım amınıza koyayım amınıza koyayım amınıza koyayım