Salve a tutti,
Ho creato un gestionale per una società in Vb6 che funziona magnificamente bene.Ho utilizzato i ontrolli Data e dbgrid di vb6 ma mi sono accorto che in vb.net non si usano.
Allora ho cominciato a studiare un pò VB.net e vedere come upgradare il progetto a vb.net.
Ma è un casino!!!!!!!!!!!!.
Il mio problema sostanziale è questo:
ho 1 form con dei textbox, un datagrid e due banalissimi pulsanti "Inserisci/Modifica" e "Cancella" e il database è in Access 97.Sono riuscito a collegare grazie ad un dataset il datagrid(sola lettura) al database e funziona.Inoltre quando clicco su un record visualizzato in un datagrid mi carica nei textbox i campi.
Non riesco a Inserire un record nuovo nel database prendendo i valori dei campi dai textbox,se trova lo stesso id mi deve chiedere se lo vuole modificare, e poi come si cancella un record selezionato dal datagrid?
Qualcuno ha un esempio o un 3d da postarmi?
Inoltre mi potete consigliare un buon libro di Vb.net che parli dui tutto il programma e soprattutto che mi guidi nello studio di applicazioni struttrate con database, per gestionali?
'vi posto il codice fin qui scritto.
'************************************************* *******************
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'On Error Resume Next
DataRubrica1.Clear() 'nome deldataset
OleDbDataAdapter1.Fill(DataRubrica1)
End Sub
Private Sub DbRubrica_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles DbRubrica.DoubleClick
'******************LETTURA DAL DBRUBRICA AI textbox**********
'ON ERROR RESUME NEXT
Dim indice As Integer
indice = DbRubrica.Item(DbRubrica.CurrentRowIndex, 0)
'MessageBox.Show("Indice selezionato nel datagrid: " & indice)
'MessageBox.Show("Id del database: " & DataRubrica1.Rubrica.Item(indice - 1).id)
txtCognome.Text = DataRubrica1.Rubrica.Item(indice - 1).Cognome
txtNome.Text = DataRubrica1.Rubrica.Item(indice - 1).Nome
txtIndirizzo.Text = DataRubrica1.Rubrica.Item(indice - 1).Indirizzo
txtCitta.Text = DataRubrica1.Rubrica.Item(indice - 1).Citta
txtTelefono.Text = DataRubrica1.Rubrica.Item(indice - 1).Tel
txtCellulare.Text = DataRubrica1.Rubrica.Item(indice - 1).Cellulare
End Sub
'************************************************* *******************
Grazie mille a tutti.
![]()