Mi piacerebbe trovare un semplice esempio di utilizzo della base MySQL remota. Lo so, ci sono alcuni tutorial su internet, che spiegano come configurare ADODB.Connection e connectionstrings, ma non riesco a farlo funzionare. Grazie per qualsiasi aiuto!Esempio di MySQL per Visual Basic 6.0 - lettura/scrittura
5
A
risposta
6
Scarica il ODBC connector
dal MySQL download page.
Cerca il codice connectionstring
su here.
Nel progetto VB6 selezionare il riferimento a Microsoft ActiveX Data Objects 2.8 Library
. È possibile che tu abbia una libreria 6.0 anche se hai Windows Vista o Windows 7. Se vuoi che il tuo programma sia eseguito su client Windows XP, anche il meglio con la libreria 2.8. Se hai Windows 7 con SP 1, il tuo programma non funzionerà mai su nessun altro sistema con specifiche inferiori a causa di un errore di compatibilità in SP1. Puoi leggere ulteriori informazioni su questo bug in KB2517589.
Questo codice dovrebbe fornire informazioni sufficienti per iniziare con il connettore ODBC.
Private Sub RunQuery()
Dim DBCon As adodb.connection
Dim Cmd As adodb.Command
Dim Rs As adodb.recordset
Dim strName As String
'Create a connection to the database
Set DBCon = New adodb.connection
DBCon.CursorLocation = adUseClient
'This is a connectionstring to a local MySQL server
DBCon.Open "Driver={MySQL ODBC 5.1 Driver};Server=localhost;Database=myDataBase; User=myUsername;Password=myPassword;Option=3;"
'Create a new command that will execute the query
Set Cmd = New adodb.Command
Cmd.ActiveConnection = DBCon
Cmd.CommandType = adCmdText
'This is your actual MySQL query
Cmd.CommandText = "SELECT Name from Customer WHERE ID = 1"
'Executes the query-command and puts the result into Rs (recordset)
Set Rs = Cmd.Execute
'Loop through the results of your recordset until there are no more records
Do While Not Rs.eof
'Put the value of field 'Name' into string variable 'Name'
strName = Rs("Name")
'Move to the next record in your resultset
Rs.MoveNext
Loop
'Close your database connection
DBCon.Close
'Delete all references
Set Rs = Nothing
Set Cmd = Nothing
Set DBCon = Nothing
End Sub
Problemi correlati
- 1. Confronto di strumenti di conversione per Visual Basic 6.0
- 2. Convertire il tipo di Visual Basic 6.0 in "Struttura" VB.NET
- 3. Basic Flask OpenID Connect esempio
- 4. visual basic e vb.net
- 5. Casting in visual basic?
- 6. Perché le enumerazioni TypeLib non sono esposte come enumerazione in Visual Basic 6.0?
- 7. Cosa significa + = in Visual Basic?
- 8. C# 6.0 senza Visual Studio
- 9. Esiste un decompilatore di Visual Basic 6?
- 10. Elenco di argomenti variabili con Visual Basic?
- 11. Arrotondare un numero in Visual Basic
- 12. aggiungi immagini alla listbox (visual basic)
- 13. Margini in Visual Basic Editor Excel 2016
- 14. Bang vs Proprietà predefinita in Visual Basic
- 15. Dimensioni dello schermo in Visual Basic
- 16. Quale sarebbe il codice Visual Basic per un'opzione Sempre attiva?
- 17. WIX 3: Utilizzo HEAT per Visual Basic 6 COM Dlls
- 18. Equivalente di Visual Basic e And Or in C#?
- 19. Visual Studio 2010 IDE con Visual C++ 6.0 compilatore?
- 20. Esempio di iniezione PHP MySQL?
- 21. Come implementare il costruttore di classi in Visual Basic?
- 22. 'Friend WithEvents' in Visual Basic vs. 'private' in C#
- 23. editor di Visual Studio 2015 rimuove linea di carattere di continuazione nel codice sorgente Visual Basic
- 24. Visual Basic Loop e visualizza una riga alla volta
- 25. Perché alcuni linguaggi Microsoft sono definiti "visivi"? (Visual C#, Visual Basic .NET, Visual C++)
- 26. Azione (di T) in Visual Basic in List (Of T). Per ogni
- 27. C# 6.0 TFS Builds
- 28. Disattivazione del compilatore di sfondo Visual Basic in Visual Studio 2008
- 29. Visual Basic: crea dinamicamente oggetti usando una stringa come nome
- 30. Esiste una finestra interattiva di Visual Basic in Visual Studio 2015?
Grazie, ma restituisce me "Non è possibile connettersi al server MySQL su ..." ogni volta che provo a connettermi ... Ho controllato il server, user e pass - tutto è corretto – f1nn
btw, sicuramente ho usato la stringa di connessione per l'accesso REMOTO – f1nn
Qual è il messaggio di errore completo? – Martin