none
Visual Basic ve Mysql baglantılı Giriş yapımı RRS feed

  • Genel Tartışma

  • Ben Visual Basic ile Yeni Tanıstım çevremde kimse yok yardım edecek bilgi alabilecegim.Sizin Yardımlarınızı Bekliyorum, 

    Yapmaya çalıstıgım Form 1 den Form 2 geçis yapmasını Kullanıcı adı ve sifre ile saglayacak.Mysql kurdum navıcatla baglandım.Baglanıyor fakat Programımda bu kontrolu saglayamadım.Hata veriyor.Asagıda kaynak kodumu verdim.

    Yapmak istedigim ;

    Kullanıcı Adı ve Sifre ile girilecek.Mümkünse Sitemin Veri tabanından çekmek;

    Kullanıcının girisine izin Verilmisse Databaseye Hwıd Kaydedecek Baska Hwıd ile Giremeyecek .Ve  Form 2 Açılcak Simdiden Teşekür Ederim Yardımlarınız için Hayırlı iftarlar 

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
            Dim con As New MySqlConnection("host=localhost; username=root;password=71657165*; database=HWD")
            Dim cmd As New MySqlCommand
            Dim dr As MySqlDataReader
    
            con.Open()
            cmd.Connection = con
            cmd.CommandText = "select userid, password from login where user id='" & useridtxt.Text & "'and password='" & passwordtxt.Text & "'"
            dr = cmd.ExecuteReader
            If dr.HasRows Then
                'WebBrowser1.Navigate("http://www./hwid.txt") 'Burada Hwıd Okutuyoruz
                '.Text = My.Computer.Info.TotalPhysicalMemory & My.Computer.Info.TotalVirtualMemory
                ' Dim a As String
                'Dim b As String
                'a = TextBox3.Text
                'b = InStr(WebBrowser1.DocumentText, a)
                'If b Then
                'WebBrowser1.Focus()
                'MsgBox("Oldu")
                'Else
                'MsgBox("olmadı2")
                'End If 'Buraya Kadar Hwid okuma ve ekrana yazma
                Me.Hide()
                Form2.Show()
    
            Else
                MsgBox("olmadı")
            End If
        End Sub
    
    End Class

     
    25 Haziran 2015 Perşembe 16:48