visual basic e mdb remoto

Thyplosion

Nuovo Utente
30 Dic 2004
17
0
0
salve :D ,
sono nel mondo del visual basic da poco e avevo un dubbio:
con vb ci si può collegare a database access remoti?
o per forza devo usare mysql?
e se devo usare mysql, cosa devo abilitare e come è la procedura per connettersi?
grazie e scusate ma mia ignoranza :D
 
se hai i permessi in lettura ed in scrittura sul database remoto puoi lavorarci, a prescindere che sia access o mysql

per lavorare con vb e mysql basta che usi la stringa di connessione adatta, poi dalla versione 5 di mysql in poi, puoi lavorare comodamente con ado
 
il progetto che sto preparando è una chat per dei miei amici.
è una cat semplice, tanto abbiamo 13 anni, non ci interessano le opzioni.
posto il codice delle funzioni di scrittura/lettura:
Codice:
Function lettura_dati()
'creo stirnga di connex e la memorizzo
stringa = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="
stringa = stringa & "c:\Program Files\EasyPHP1-8\www\sichat\db.mdb"
'creco variabili x conn e recordset
Set cn = New ADODB.Connection
Set rs = New ADODB.Recordset
'creo connex
cn.Open stringa
rs.Open "SELECT * FROM messaggi", cn, 1
'controllo dati e scarico mex
If rs.EOF Then
    messaggi.Text = "Nessun messaggio!"
Else
    While rs.EOF = False
    messaggi.Text = messaggi.Text _
    & rs("nick") _
    & " dice:" _
    & vbCrLf _
    & rs("messaggi") _
    & vbCrLf _
    & vbCrLf
    data.Text = rs("data")
    rs.MoveNext
    Wend
End If
'pulisco buffer
Set cn = Nothing
Set rs = Nothing
End Function
Codice:
Function invio_dati()
'controllo nick e mex
If Len(Trim(nick.Text)) = 0 Then
    MsgBox "Inserire il nick", vbCritical, "ERRORE"
    nick.SetFocus
    Exit Function
End If
If Len(Trim(messaggio.Text)) = 0 Then
    MsgBox "Inserire il messaggio", vbCritical, "ERRORE"
    messaggio.SetFocus
    Exit Function
End If
'creo stirnga di connex e la memorizzo
stringa = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="
stringa = stringa & "c:\Program Files\EasyPHP1-8\www\sichat\db.mdb"
'creco variabili x conn e recordset
Set cn = New ADODB.Connection
Set rs = New ADODB.Recordset
'creo connex
cn.Open stringa
rs.Open "messaggi", cn, 3, 3
'aggiungo mex e nick
rs.AddNew
    rs("nick") = nick.Text
    rs("messaggi") = messaggio.Text
    rs("data") = "L'ultimo messaggio è del " & Date & " alle " & Time
rs.Update
'pulisco buffer
Set cn = Nothing
Set rs = Nothing
End Function
il codice così va, ma è inutile xkè il database è sul mio pc e quindi devo caricarlo su un server.
ho provato su localhost con
Codice:
stringa = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="
stringa = stringa & "http://localhost/sichat/db.mdb"
e
Codice:
stringa = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="
stringa = stringa & "http://127.0.0.1/sichat/db.mdb"
ma danno errore dicendo "file name invalid"
heeelp
 
scusatemi un'ultima volta.
forse chiedo troppo, ma qualche buon anima potrebbe postare un esempio di connessione a database mysql?
grazie un fantastiliardo
 
avevo gia provato una impostata proprio x access, ma non trovava la tabella ke esiste....forse è un problema del server. riprovo su un altro
 
fo fatto, ma testandolo in localhost (con nome server "localhost" e "http://localhost") mi da quasto errore:
errordatabase8hs.gif
 
perchè fai una chiamata http su localhost? è visual basic, puoi eseguirlo a prescindere dal web server

isola la stringa di connessione ed importala nel codice vb, non prenderla pari pari com'è quella è sintassi scritta ad hoc per asp

fammi sapere
 
ho provato e riprovato su diversi server usando l'ip e il dns, ma da sempre lo stesso errore :dipser:
 
ho installato myODBC (e ho faticato, perchè ho il winzozz installer corrotto e ogni volta che installo qualcosa devo disinstallare e reinstallare il win installer :gun: ) ma quando provo ad aggiungere i riferimenti, ma mi dice "Can't add a reference to the specified file."
Ora non capisco se il file è il progetto o la dll, cmq non riesco ad usare myODBC.
qualcuno mi sa dare una dritta? ho preso myODBC 3.51
 

Discussioni simili