VB -> Mysql

[Fenomeno85]

ti do il programma che famo prima

~§~ Sempre E Solo Lei ~§~

[Fenomeno85]

form

~§~ Sempre E Solo Lei ~§~

[Fenomeno85]

up

~§~ Sempre E Solo Lei ~§~

[cionci]

Sono vuoti gli archivi...
Mi basta il pezzo di codice da quando apri a quando chiudi il DB...

[Fenomeno85]

devi togliere l'estensione rar comunque io di codice non ho scritto niente

~§~ Sempre E Solo Lei ~§~

[Fenomeno85]

cionci che devo scrivere come codice?? Eppure per la visualizzazione dei dati funziona.

~§~ Sempre E Solo Lei ~§~

[cionci]

Project -> References -> seleziona Microsft ActiveX Data Object e poi scrivi questo codice...

Dim db As New ADODB.Connection
Dim rs As New ADODB.Recordset

db.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=I:\Administrator\Documenti\db1.mdb;"
rs.Open "Select * From Query2;", db, 3, 3

While Not rs.EOF
    MsgBox "" & rs.Fields("ID")
    rs.MoveNext
Wend

Al psoto di "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=I:\Administrator\Documenti\db1.mdb;" mettici la stringa di connessione che ti ho dato prima...
Come vedi visualizzo solo il campo ID in questo esempio...

[Fenomeno85]

ok quindi io adesso invece di select ci metterò INSERT TO

comunque come faccio ad accedere con vb ad internet e poi guaradare sul db?? ho provato a mettere il mio ip nella stringa sel server ma mi dice errore.

~§~ Sempre E Solo Lei ~§~

[cionci]

Per eseguire le query che non producono risposta è meglio usare:

db.Open etc etc
db.Execute(Query)

comunque come faccio ad accedere con vb ad internet e poi guaradare sul db?? ho provato a mettere il mio ip nella stringa sel server ma mi dice errore.

Che intendi ?!?!?

[Fenomeno85]

adesso provo l'ex perchè in questo modo non vedo gli aggiornamenti. Quello che intendo è che con questo programma gli dico il mio ip, lui si connette e posso aggiornare

~§~ Sempre E Solo Lei ~§~

[cionci]

Sì...ma l'ip di quale server ?!?!?

Devi mettere 127.0.0.1...è il server che è instalalto sulla tua macchina...

[Fenomeno85]

rs.Execute "INSERT INTO temperatura (valore_t) VALUES (16);", db, 3, 3

mi dice che non riesce a trovare execute

~§~ Sempre E Solo Lei ~§~

[Fenomeno85]

Originariamente inviato da cionci
Sì...ma l'ip di quale server ?!?!?

Devi mettere 127.0.0.1...è il server che è instalalto sulla tua macchina...

quello che intendo è che se io ti do il programma te ti connetti a questo db e ci metti dei valori.

~§~ Sempre E Solo Lei ~§~

[cionci]

Si, certo, ma ci devo mettere il tuo ip...
E comunque dipende anche se hai firewall installati...

[Fenomeno85]

perchè mi crasha visual basic se eseguo questa istruzione??

Private Sub Command1_Click()
db.Execute "INSERT INTO temperatura (valore_t) VALUES (16);"
End Sub

edit:così funziona ... comunue come faccio ad avere la possibilità di selezionare i nuovi campi inseriti?? Con i pulsanti che ho messo non riesco.

codice completo:

Dim db As New ADODB.Connection
Dim rs As New ADODB.Recordset

Private Sub cmdavanti_Click()
'per spostarsi sul record successivo
Data1.Recordset.MoveNext
If cmdindietro.Enabled = False Then
cmdindietro.Enabled = True
cmdprimo.Enabled = True
End If
If Data1.Recordset.EOF Then
Data1.Recordset.MoveLast
cmdavanti.Enabled = False
cmdultimo.Enabled = False
End If
End Sub

Private Sub cmdindietro_Click()
'per spostarsi sul record successivo
Data1.Recordset.MovePrevious
If cmdavanti.Enabled = False Then
cmdavanti.Enabled = True
cmdultimo.Enabled = True
End If
If Data1.Recordset.BOF Then
cmdindietro.Enabled = False
cmdprimo.Enabled = False
Data1.Recordset.MoveFirst
End If
End Sub

Private Sub cmdprimo_Click()
'per andare all'primo record
Data1.Recordset.MoveFirst
cmdprimo.Enabled = False
cmdindietro.Enabled = False
cmdultimo.Enabled = True
cmdavanti.Enabled = True
End Sub

Private Sub cmdultimo_Click()
'per andare all'ultimo record
Data1.Recordset.MoveLast
cmdultimo.Enabled = False
cmdavanti.Enabled = False
cmdindietro.Enabled = True
cmdprimo.Enabled = True
End Sub

Private Sub Command1_Click()
db.Execute "INSERT INTO temperatura (valore_t) VALUES (15,25);"
End Sub

Private Sub Form_Load()
db.Open "Driver={MySQL ODBC 3.51 Driver};Server=localhost;Database=fenomeno85_db_it;User=fenomeno85;Password=/////;"
End Sub


~§~ Sempre E Solo Lei ~§~

[cionci]

Devi fare anche la select...

[Fenomeno85]

ok ce l'ho fatta aggiungendo questa istruzione:

data1.refresh

adesso mi rimane da affrontare il problema della connessione .. il bello è che se provo da obdc a creare una connessione e mettendo come dsn l'ip del pc e sul server niente la cosa funziona... non è che devo mettere il dsn nella stringa di connessione?? se si cosa ci devo aggiungere??

~§~ Sempre E Solo Lei ~§~

[cionci]

La stringa che ti ho dato dovrebbe cerare un DSN temporaneo... Puoi anche mettere il nome del DSN al posto della stringa di connessione, ma ti consiglio di fare come ti ho detto...

[Fenomeno85]

porca ho provato anche stamattina a connettermi da scuola con il programma ma mi continua a dare l'errore.

Come faccio a connettermi se devo accedere da remoto??

~§~ Sempre E Solo Lei ~§~

[cionci]

Hai WinXP ? Hai il firewall di WinXP attivato ?