Sayın atoz112 hocam;
Değerli yorumunuz için teşekkür ederim. Paylaşmış olduğunuz video içinde teşekkürler.
Ancak benim yapmak istediğim sayın C*e*l*o*y*c*e
burada paylaşmış olduğu uygulamadaki gibi (Kendisinede paylaşmış ve yazmış olduğu program içinde teşekkürler.) veritabanı uygulama ile aynı yolda değil ise veya belirtilen yolda değilse bir uyarı penceresi ile kullanıcıyı uyarmak ve kullanıcıdan veritabanı yolunu istemek
Sayın C*e*l*o*y*c*e programından örnek vermek gerekirse;
yukarıdaki resimdeki gibi kullanıcıya veritabanı yolu sormak ve devamında bu bilgiye dayalı programı çalıştırmak istiyorum.
İnternette biraz araştırdım ancak
Access için bir çalışma bulamadım
Sql için yapılmış bir çalışma buldum ancak çalışma eski olduğu için kodlar hata veriyor. Aynı mantıkla kendime göre de uyarlıyamadım
Kod aşağıdaki gibi;
Imports MySql.Data.MySqlClient
Public Class Form1
Dim baglanti_dizisi As New MySqlConnectionStringBuilder
Dim mysql_baglanti As New SqlClient.SqlConnection
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
baglanti_dizisi.Server = txtServer.Text
'baglanti_dizisi.Database = "ogrenci"
baglanti_dizisi.UserID = txtUserID.Text
baglanti_dizisi.Password = txtPassWord.Text
mysql_baglanti.ConnectionString = baglanti_dizisi.ToString
Try
mysql_baglanti.Open()
Catch ex As Exception
MessageBox.Show(ex.Message, "Hata Kodu : " & ex.Message.ToString, MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
AddHandler mysql_baglanti.StateChange, AddressOf mysql_baglanti_durumu
End Sub
Private Sub mysql_baglanti_durumu(ByVal sender As Object, ByVal e As StateChangeEventArgs)
If e.CurrentState = ConnectionState.Connecting Then
Me.ToolStripStatusLabel2.Image = My.Resources.baglaniyor
ElseIf e.CurrentState = ConnectionState.Open Then
Me.ToolStripStatusLabel2.Image = My.Resources.baglandi
ElseIf e.CurrentState = ConnectionState.Closed Then
Me.ToolStripStatusLabel2.Image = My.Resources.baglanti_sonlandi
End If
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
mysql_baglanti.Close()
End Sub
Private Sub HelpToolStripButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HelpToolStripButton.Click
System.Diagnostics.Process.Start("http://www.*******.com/?p=842&page=3")
End Sub
End Class
Bu şekilde bir işlemi nasıl yapabilirim
Yardımlarınız için teşekkürler.
Dünyada Yetirince Anlaşılır Dile Konuşan İnsanlar Var Birazcık da Anlaması İçin Düşünmesi Gerekiyor İnsanların