ciao ragazzi vedo che molti passano da vb6 a vb 10 e non ci si ritrova quasi nessuno, mi sembra che si a avanti con il copia e incolla.(specialmente con i db)
Io mi sono trovato con lo stesso problema con la differenza che il copia e incolla non lo sopporto perchè mi piace capire.
ho speso 40 euro per la guida completa di vb2010 hoepli ma ovviamente nn ci si capisce una maxa. Non si sa neanche dove vanno scritte le stringhe a meno che nn ti sbirci la prorammazione di altri.
Diciamo che se posto il metodo di apertura/modifica/recupero/salvataggio di dati piu comune quindi con db di access fatto in vb6, c'è qualche anima santa che lo modifica per vb10 con tanto di spiegazione di quello che si sta facendo????
grazie in anticipo
-----------------------------------------------------------------------------------
'TUTTO IN UN MODULO
Option Explicit
Dim Database As Database
Dim Recordset As Recordset
'Dim Codice, Descrione
Public Sub Apridb()
Set Database = OpenDatabase("\\tsclient\f\db.mdb") 'db in rete
Set Recordset = Database.OpenRecordset("magazzino", dbOpenDynaset) 'tabella magazzino
End Sub
*************
Public Sub Nuovo()
Recordset.AddNew
End Sub
*********************
Public Sub Modifica()
Recordset.Edit
End Sub
**********************
Public Sub Annulla()
Recordset.CancelUpdate
End Sub
***********************
Public Sub Elimina()
Recordset.Delete
End Sub
************************
Public Sub Salva()
Recordset!codice = codice 'record codice è uguale al valore della variabile codice
Recordset!descrizione = descrizione 'idem; potrebbe essere anche una textbox
Recordset.Update
End Sub
***********************
Public Sub Chiudi()
Recordset.Close
End Sub
***********************
Public Sub Campi()
With Recordset
FrmDati.TxtCodice.Text = Recordset!codice
descrizione = Recordset!descrizione
End With
End Sub
**************************
Pubic Sub Cerca()
Set Database = OpenDatabase("\\tsclient\f\db.mdb")
Set Recordset = Database.OpenRecordset("select * from magazzino", where codice like '*' + '" & FrmDa.TxtRicerca.Text & "' + '*'", dbOpenDynaset)
End Sub
**************************
grazie a tutti spero sia di aiuto a chi inizia e non sa proprio dove leggere cose passo passo come la vecchia gran guida dell'apogeo vb6 passo x passo.

Rispondi quotando