neyse bağlanamadı gibi hatalar alıyorum.Kod:
Imports MySql.Data.MySqlClient Public Class Form1 Public baglanti_dizisi As New MySqlConnectionStringBuilder Public mysql_baglanti As New MySqlConnection Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click baglanti_dizisi.Server = "Site İp Adresi" baglanti_dizisi.Server = TextBox1.Text baglanti_dizisi.Database = "Veri Tabanı Adı" baglanti_dizisi.UserID = TextBox2.Text baglanti_dizisi.UserID = "Kullanıcı Adı" baglanti_dizisi.Password = "Şifre" mysql_baglanti.ConnectionString = baglanti_dizisi.ToString baglanti_dizisi.Password = TextBox3.Text mysql_baglanti.ConnectionString = baglanti_dizisi.ToString Try mysql_baglanti.Open() Catch ex As MySqlException MessageBox.Show(ex.Message, "Hata Kodu : " & ex.Number.ToString, MessageBoxButtons.OK, MessageBoxIcon.Error) End Try Try mysql_baglanti.Open() Catch ex As MySqlException MessageBox.Show(ex.Message, "Hata Kodu : " & ex.Number.ToString, MessageBoxButtons.OK, MessageBoxIcon.Error) Finally mysql_baglanti.Close() End Try End Sub Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged Button1.Enabled = True End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click System.Diagnostics.Process.Start("Kayıt Olunacak Site Adı") End Sub End Class
__________________