Newsgroup: it.comp.lang.visual-basic
Titolo: Stringhe mysql

volevo sapere che stringhe si usano per connettersi a un database mysql 
remoto...sarei grato se si può inserire anche un po di codice d'esempio
Grazie in anticipo 


http://www.connectionstrings.com/
Ciao
-- 
Free .Net Reporting Tool - 
http://www.neodatatype.net
 

 ha scritto nel messaggio 
news:44defd84$0$15878$4faf...@reader2.news.tin.it...


 programmi
Ciao, non so se è la strada migliore, ma io ho risolto così. Ho creato 
una classe con membri shared, quindi senza bisogno di istanziarla, per 
accededere al DB SQL. Ti posto uno stralcio:
         Friend Shared Function LeggiDati(ByVal Query As String, ByVal 
NomeDataTable As String) As DataTable
             Dim DA As SqlDataAdapter
             Dim DT As New DataTable
             Dim SConnessione As String
             Dim indice As Integer = 0
             Try
                 SConnessione = StringaConnessione
                 DA = New SqlDataAdapter(Query, SConnessione)
                 DT = New DataTable(NomeDataTable)
                 DA.Fill(DT)
             Catch err As Exception
                 MessageBox.Show("Si è verificato un errore di lettura 
nel DataBase nella procedura di " & NomeDataTable & Chr(10) & 
"Contattare l'assistenza con il codice di errore", "Errore", 
MessageBoxButtons.OK, MessageBoxIcon.Error)
                 MessageBox.Show(err.ToString, "Dettagli errore", 
MessageBoxButtons.OK, MessageBoxIcon.Information)
             Finally
                 DA.Dispose()
             End Try
             Return DT
         End Function
         Friend Shared Function AggiornaDati(ByVal Query As String) As 
Boolean
             Dim Connessione As SqlConnection = New SqlConnection
             Dim Comando As SqlCommand
             Dim Transazione As SqlTransaction
             Connessione.ConnectionString = StringaConnessione
             Comando = Connessione.CreateCommand
             Try
                 Connessione.Open()
                 Comando.CommandText = Query
                 Transazione = Connessione.BeginTransaction
                 Comando.Transaction = Transazione
                 Comando.ExecuteNonQuery()
                 Transazione.Commit()
                 AggiornaDati = True
             Catch err As Exception
                 MessageBox.Show("Errore nella memorizzazione dei nuovi 
dati nel DB" & Chr(10) & "I nuovi dati inseriti andranno persi. 
Contattare assistenza", "Errore", MessageBoxButtons.OK, 
MessageBoxIcon.Error)
                 Transazione.Rollback()
                 AggiornaDati = False
             Finally
                 Connessione.Close()
                 Connessione.Dispose()
                 Comando.Dispose()
                 Transazione.Dispose()
             End Try
         End Function
         Friend Shared Function SalvaDati(ByVal Query As String) As Boolean
             Dim Connessione As SqlConnection = New SqlConnection
             Dim Comando As SqlCommand
             Dim Transazione As SqlTransaction
             Connessione.ConnectionString = StringaConnessione
             Comando = Connessione.CreateCommand
             Try
                 Connessione.Open()
                 Comando.CommandText = Query
                 Transazione = Connessione.BeginTransaction
                 Comando.Transaction = Transazione
                 Comando.ExecuteNonQuery()
                 Transazione.Commit()
                 SalvaDati = True
             Catch err As Exception
                 MessageBox.Show(err.ToString)
                 MessageBox.Show("Errore nella memorizzazione dei nuovi 
dati nel DB" & Chr(10) & "I nuovi dati inseriti andranno persi. 
Contattare assistenza", "Errore", MessageBoxButtons.OK, 
MessageBoxIcon.Error)
                 Transazione.Rollback()
                 SalvaDati = False
             Finally
                 Connessione.Close()
                 Connessione.Dispose()
                 Comando.Dispose()
                 Transazione.Dispose()
             End Try
         End Function
         Friend Shared Function CancellaDati(ByVal Query As String) As 
Boolean
             Dim Connessione As SqlConnection = New SqlConnection
             Dim Comando As SqlCommand
             Dim Transazione As SqlTransaction
             Try
                 Connessione.ConnectionString = StringaConnessione
                 Comando = Connessione.CreateCommand
                 Connessione.Open()
                 Comando.CommandText = Query
                 Transazione = Connessione.BeginTransaction
                 Comando.Transaction = Transazione
                 Comando.ExecuteNonQuery()
                 Transazione.Commit()
                 CancellaDati = True
             Catch ex As Exception
                 Transazione.Rollback()
                 MessageBox.Show("Errore nella cancellazione" & Chr(10) 
& "Contattare l'assistenza con il codice errore", "Errore", 
MessageBoxButtons.OK, MessageBoxIcon.Error)
                 MessageBox.Show(ex.ToString, "Dettagli errore", 
MessageBoxButtons.OK, MessageBoxIcon.Information)
                 CancellaDati = False
             Finally
                 Connessione.Close()
                 Connessione.Dispose()
                 Comando.Dispose()
                 Transazione.Dispose()
             End Try
         End Function
Ciao, Spero ti possa essere utile