|
Zdravim, potřeboval bych pomoci opravit můj kousek kódu pro spojení s mysql a příjímání příchozích tcp připojení (viz. net tabule zde na webu)kód:
Imports MySql.Data.MySqlClient
Public Class formLoad
Private Sub Me_Load(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles MyBase.Load
Me.Text = frmTitle+" - Načítání..." 'nadpis okna
Dim tcpListener As Net.Sockets.TcpListener
Dim serverPort As Integer = ReadINI("SERVER", "port", ConfigFilePath)
Dim mysqlConnection As MySqlConnection
Dim mysqlDataAdapter As MySqlDataAdapter
Dim mysqlCommandBuilder As MySqlCommandBuilder
Dim connectionString As String
connectionString = String.Format("server={0};user id={1}; password={2}; database={3}; pooling=false", _
MysqlHost, MysqlUsername, MysqlPassword, MysqlDatabase)
tcpListener = New Net.Sockets.TcpListener(System.Net.IPAddress.Any, serverPort)
mysqlConnection = New MySqlConnection(connectionString)
Try
mysqlConnection.Open()
tcpListener.Start()
Me.Visible = False
formServer.Visible = true
Catch ex As MySqlException
MsgBox("Server se nepodařilo spustit (Špatný port pro naslouchání nebo špatné uživatelské údaje MYSQL)", MsgBoxStyle.Information, frmTitle)
End
End try
End Sub
End Class
nechci po nikom, aby mi tu opravil celý kód (samozřejmě, zlobit se nebudu), ale chci Vás spíše požádat, zda by jste mi mohli napsat jestli nemám nějaké chyby v zápisu, jelikož se teprve učím, tak abych netropil chyby ihned na počátku. Jinak ještě k tomuto kódu, mám v něm:Me.Visible = False ale i když to žádnou chybovou zprávu nevyhodí, tak se aktuální okno prostě neuzavře, ale nové, které zobrazuji:formServer.Visible = true se normálně zobrazí, takže mám puštěné 2 okna, nevíte kde by mohla být chyba? Děkuji všem
|