TSKadirB3Y
Silver Üye
- Katılım
- 11 Tem 2021
- Mesajlar
- 74
- Beğeniler
- 7
Arkadaşlar Login Sistemi Yaptım Xampp İle PhpMyAdmin Üzerinden Yaptığım SQL Dosyasından Verileri Çekip Sorunusuz Login Yapıyor
Fakat Kendi İnternet Sitemin PhpMyAdminine Bağlanınca Login Basınca " Unable to connect to any of the specified MySQL hosts "
Hatası Veriyor Kodum Aşşaığda Verildiği Gibidir Tüm Düzenlemeleri Siteme Göre Düzeltyorum Ona Rağmen Çalışmıyor
Fakat Kendi İnternet Sitemin PhpMyAdminine Bağlanınca Login Basınca " Unable to connect to any of the specified MySQL hosts "
Hatası Veriyor Kodum Aşşaığda Verildiği Gibidir Tüm Düzenlemeleri Siteme Göre Düzeltyorum Ona Rağmen Çalışmıyor
Kod:
Imports MySql.Data.MySqlClient
Public Class Form1
Private Sub MetroLabel1_Click(sender As Object, e As EventArgs) Handles MetroLabel1.Click
End Sub
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
End Sub
Private Sub MetroToggle1_CheckedChanged(sender As Object, e As EventArgs) Handles MetroToggle1.CheckedChanged
If Me.MetroToggle1.Checked = True Then
TextBox2.UseSystemPasswordChar = True
Else
TextBox2.UseSystemPasswordChar = False
End If
End Sub
Private Sub MetroButton1_Click(sender As Object, e As EventArgs) Handles MetroButton1.Click
Dim con As New MySqlConnection("server=localhost; userid=magteam1_uygulama; password=sifremdurada; database=giris; charset=utf8;SslMode=none")
Dim cmd As New MySqlCommand()
Dim dr As MySqlDataReader
Try
con.Open()
cmd.Connection = con
cmd.CommandText = "SELECT kAdi, kSifre FROM uyeler WHERE kAdi='" & TextBox1.Text & "' AND kSifre='" & TextBox2.Text & "'"
dr = cmd.ExecuteReader()
If dr.HasRows Then
MsgBox("Giriş Yaptın Lo")
AnaSayfa.Show()
Me.Close()
Else
MsgBox("Giriş Yapamadın Lo")
End If
Catch ex As Exception
MessageBox.Show(ex.Message)
Finally
con.Close()
End Try
End Sub
End Class
