leggere da vba il valore di una campo in una tabella MyQql online

[mario rossi]

Buongiorno a tutti,

Qualcuno sa "se" e in che modo sia possibile leggere da vba il valore di una campo in una tabella MyQql online
esempio tabella di nome "miatabella" campi "nome" e "attivato"
nome string, attivato boolean

da vba devo trovare il nome interessato e controllare se è attivo.

era un idea per proteggere da copie indesiderate un database, oppure avete altre idee più semplici o più sicure?

grazie.

[mario rossi]

Ho oppure "Abbiamo" le ore contate?
mi ha risposto ChatGPT la risposta è la seguente: (devo ancora provare)

Sì, è possibile utilizzare VBA (Visual Basic for Applications) per leggere un campo di una tabella di un database che si trova su Aruba utilizzando Access come interfaccia. Aruba è un provider di servizi di hosting, quindi suppongo che tu stia facendo riferimento a un database MySQL o simile ospitato su un server Aruba.

Per connetterti a un database su Aruba da Access utilizzando VBA, dovrai utilizzare la connessione ODBC (Open Database Connectivity). Ecco un esempio di codice VBA per connetterti a un database su Aruba e leggere un campo di una tabella:

Sub LeggiCampoDaDatabaseAruba()
Dim conn As Object
Dim rs As Object
Dim strSQL As String
Dim campo As Variant

' Imposta la stringa di connessione ODBC
Set conn = CreateObject("ADODB.Connection")
conn.ConnectionString = "DRIVER={MySQL ODBC 5.3 ANSI Driver};" _
& "SERVER=indirizzo_server;" _
& "DATABASE=nome_database;" _
& "USER=nome_utente;" _
& "PASSWORD=password;"

' Apri la connessione al database
conn.Open

' Esegui una query per leggere il campo desiderato
strSQL = "SELECT nome_campo FROM nome_tabella WHERE condizione;"

Set rs = CreateObject("ADODB.Recordset")
rs.Open strSQL, conn

' Verifica se il recordset contiene dei dati
If Not rs.EOF Then
campo = rs.Fields("nome_campo").Value
MsgBox "Valore del campo: " & campo
Else
MsgBox "Nessun dato trovato."
End If

' Chiudi il recordset e la connessione
rs.Close
conn.Close

Set rs = Nothing
Set conn = Nothing
End Sub

Assicurati di sostituire indirizzo_server, nome_database, nome_utente, password, nome_tabella e nome_campo con i valori corretti per il tuo database su Aruba. Inoltre, potrebbe essere necessario installare il driver ODBC corrispondente per il tuo database (ad esempio, il driver MySQL ODBC).

[BFS]

Aruba non lascia connettere dall'esterno al db mysql se intendi quello
compreso nel pacchetto hosting con db

devi comprare il servizio apposito o usare altri hosting che lascino accede

ad ogni modo io per collegarmi a mysql online uso la seguente connection
string

cs = "DRIVER={MySQL ODBC 5.3 ANSI Driver};SERVER=" & server &
";DATABASE=" & db & ";USER=" & user & ";PASSWORD=" & psw & ";Option=3"

ovviamente con i vari parametri settati

poi con ado vado con il classico

Dim cnn As New ADODB.Connection

cnn.ConnectionString = cs
cnn.Open
...
cnn.close


BFS