27/11/13 22:17
faustf
salve a tutti , scusatemi la domanda , sto passando a vb.net , ma non ci capisco ancora molto , vorrei se fosse possibile un chiarimento , ho fatto un programmino semplice che aggancia un db mysql .
ho messo i parametri di connessione etc.. in una funzione public chiamata Public Function _database_connect()
ora in mezzo a questa funzione vorrei fosse richiamata un altra funzione pubblica chiamata Public Function _estrae_rubrica_dispari()
solo che quando vado ad eseguire il codice mi dice che la variabile mysqlconn , non è dichiarata , anche se è dichiarata come
Dim MysqlConn As MySqlConnection
ho provato anche a mettere
Public MysqlConn As MySqlConnection
ma non cè bene , vi posto tutto il codice , se poteste spiegarmi , grazie
ho messo i parametri di connessione etc.. in una funzione public chiamata Public Function _database_connect()
ora in mezzo a questa funzione vorrei fosse richiamata un altra funzione pubblica chiamata Public Function _estrae_rubrica_dispari()
solo che quando vado ad eseguire il codice mi dice che la variabile mysqlconn , non è dichiarata , anche se è dichiarata come
Dim MysqlConn As MySqlConnection
ho provato anche a mettere
Public MysqlConn As MySqlConnection
ma non cè bene , vi posto tutto il codice , se poteste spiegarmi , grazie
Public Function _database_connect() Dim lines() As String = My.Resources.database_config.Split(Environment.NewLine) Dim server As String = (lines(0).Split("=")(1)) Dim username As String = (lines(1).Split("=")(1)) Dim password As String = (lines(2).Split("=")(1)) Dim database As String = (lines(3).Split("=")(1)) Dim MysqlConn As MySqlConnection MysqlConn = New MySqlConnection() MysqlConn.ConnectionString = "server=pincopallino.it;" _ & "user id=root;" _ & "password=baobab;" _ & "database=demade" Try MysqlConn.Open() MessageBox.Show("Connessione avvenuta con successo.") _estrae_rubrica_dispari() Catch myerror As MySqlException MessageBox.Show("Non è possibile connettersi al database: " & myerror.Message) Application.Exit() Finally MysqlConn.Dispose() End Try End Function Public Function _estrae_rubrica_dispari() Dim myadapter As New MySqlDataAdapter("select * from dynarc_rubrica_contacts;", MysqlConn) Dim mydatateble As New DataTable myadapter.Fill(mydatateble) MsgBox(mydatateble.Rows(10).Item("name")) End Function
aaa