2008'den beri50 mesaj
kullanici = ""
cmd.Connection = baglan
cmd.CommandText = "Select * from giris where kull='" & TextBox1.Text & "' and sifre='" & TextBox2.Text & "'"
Dim dr As SqlClient.SqlDataReader
baglan.Open()
dr = cmd.ExecuteReader
Do While dr.Read = True
kullanici = dr(0)
Loop
baglan.Close()
If kullanici <> "" Then
Dim form2 As New Form2
form2.Show()
Me.Hide()
Else
Label3.Text = "Hatal bilgi Girii!!!!"
TextBox1.Text = ""
TextBox2.Clear()
say += 1
If say = 3 Then RichTextBox1.Text = say.ToString()
RichTextBox1.SaveFile("D:\gizle.fdn")
End If
baglan.Close()
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
RichTextBox1.LoadFile("gizle.fdn")
Dim b As String = RichTextBox1.Text
If b = "3" Then
Button1.Enabled = False
End If
End Sub
End Class
// BU sekilde bi olay dusundum fakat calısmasında bır sorun var yardımcı olursanız sevınırım
cmd.Connection = baglan
cmd.CommandText = "Select * from giris where kull='" & TextBox1.Text & "' and sifre='" & TextBox2.Text & "'"
Dim dr As SqlClient.SqlDataReader
baglan.Open()
dr = cmd.ExecuteReader
Do While dr.Read = True
kullanici = dr(0)
Loop
baglan.Close()
If kullanici <> "" Then
Dim form2 As New Form2
form2.Show()
Me.Hide()
Else
Label3.Text = "Hatal bilgi Girii!!!!"
TextBox1.Text = ""
TextBox2.Clear()
say += 1
If say = 3 Then RichTextBox1.Text = say.ToString()
RichTextBox1.SaveFile("D:\gizle.fdn")
End If
baglan.Close()
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
RichTextBox1.LoadFile("gizle.fdn")
Dim b As String = RichTextBox1.Text
If b = "3" Then
Button1.Enabled = False
End If
End Sub
End Class
// BU sekilde bi olay dusundum fakat calısmasında bır sorun var yardımcı olursanız sevınırım