c.ronaldo (Normal User)
Expert
Messaggi: 577
Iscritto: 01/02/2007
|
Certo non ti posso scrivere tutto il programma,perchè come ripetiamo sempre,non facciamo programmi su richiesta,ma ti posso aiutare un pò....
Come proma cosa vai in project -> references -> e seleziona Microsoft DAO 3.51 Object Library...
Questo server per aggiungere la libreria DAO per la connessione al database e all'uso dei recordset!
Poi Dichiari le variabili db e rs (non devono essere per forza così i nomi.ma è per più leggibbilità e un veloce riconoscimento).
Queste devono essere rispettivamente database e recordset!!
Quindi avrai un codice del tipo :
Codice sorgente - presumibilmente VB.NET |
Dim db As Database Dim i As Recordset
|
Attenzione a db,perchè è database e non database s!!
Poi nel form di apertura metti :
Codice sorgente - presumibilmente Visual Basic 6 |
Set db = OpenDatabase(App.Path & "/Prova.mdb")
|
Che setta la variabile db come il database vero e proprio col rispettivo percorso del database,nel nostro caso il database si trova nella cartella dove c'è l'eseguibile e si chiama Prova...
Poi metti(sempre nel form load) questo :
Codice sorgente - presumibilmente Visual Basic 6 |
Set i = db.OpenRecordset("re")
|
Che appunto apre la tabella "re" del database,ma nel mio caso si chiama re!!!
Una volta fatto questo,se tutto è andato bene la connessione con la tabella "re" del database Prova
è stata stabilita!!!...
Ora vediamo come usare il recordset ...
Allora,una volta che la variabile rs è stata impostata(vedi sopra),la possiamo utilizzare...
Se per esempio io volessi contare i record che ha la tabella "re" faccio
Codice sorgente - presumibilmente Visual Basic 6 |
Dim risultato as integer
risultato = i.recordcount
MsgBox "Sono stati trovati " & risultato & " record"
|
Ora però non posso spiegarti tutto perchè è un pò lunghetto,ti ho fatto un prog(DI ESEMPIO) su come aggiungere,eliminare e modificare record:
Codice sorgente - presumibilmente VB.NET |
Dim db As Database Dim i As Recordset Dim a, b, c Private Sub cxx_Click() Dim ttt As Integer Dim uy As String i.MoveFirst For ttt = 1 To i.RecordCount If i.Fields("Nick name") = List1.Text Then i.Edit i.Fields("Nick name") = InputBox("Scrivi il nick name dell'utente da modificare!", "Nick name") i.Update Call Form_Load Else i.MoveNext End If Next End Sub Private Sub dsd_Click() Dim ut, pa As String ut = InputBox("Scrivi il nick name dell'utente da aggiungere!", "Nick name") pa = InputBox("Scrivi la password dell'utente da aggiungere!", "Password") i.AddNew i.Fields("Nick name") = ut i.Fields("Password") = pa i.Update Call Form_Load End Sub Private Sub fdf_Click() Dim tt As Integer i.MoveFirst For tt = 1 To i.RecordCount If i.Fields("Nick name") = List1.Text Then i.Delete Call Form_Load Else i.MoveNext End If Next End Sub Private Sub ff_Click() Dim ttt As Integer Dim uy As String i.MoveFirst For ttt = 1 To i.RecordCount If i.Fields("Password") = List2.Text Then i.Edit i.Fields("Password") = InputBox("Scrivi la password dell'utente da modificare!", "Password") i.Update Call Form_Load Else i.MoveNext End If Next End Sub Private Sub Form_Load() Set db = OpenDatabase(App.Path & "/Prova.mdb") Set i = db.OpenRecordset("re") List1.Clear List2.Clear a = i.RecordCount Label2.Caption = a For b = 1 To a List1.AddItem i.Fields("Nick name") List2.AddItem i.Fields("Password") i.MoveNext Next End Sub
|
Se non hai capito qualcosa posta
PS:Forse ho sbagliato qualcosa per due motivi:
- Andavo di fretta
- Non uso vb da un secolo!
|