[Visual Basic Express] Salvare i dati in un DB Access

neo996sps

Utente Attivo
31 Mag 2007
247
0
0
Trentino
Ciao a tutti,

stò creando un'applicazione per gestire le ricette di cucina. Riesco ad interfacciarmi al DB e a leggere e scorrere i dati, ma non riesco ad immagazzinarne di nuovi. Vi posto il codice che ho messo nel form:
Imports System.Data.OleDb
Public Class frmDessert
Dim connStr As String = _
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=""C:\ricette\DBRicette.mdb"""
Dim da As New OleDbDataAdapter ' DataAdapter
Dim ds As DataSet = New DataSet() ' DataSet
Dim bs As New BindingSource() ' BindingSource
Private Sub frmDessert_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'TODO: questa riga di codice carica i dati nella tabella 'DBRicetteDataSet.Dessert'. È possibile spostarla o rimuoverla se necessario.
Me.DessertTableAdapter.Fill(Me.DBRicetteDataSet.Dessert)
' Creazione connessione al DB
Dim conn As OleDbConnection
conn = New OleDbConnection(connStr)

' Pulizia DataSource
ds.Clear()
' apre connessione
conn.Open()

' Queri sul DB attraverso l'oggetto DataAdapter
da.SelectCommand = New OleDb.OleDbCommand
da.SelectCommand.Connection = conn
da.SelectCommand.CommandText = "SELECT * FROM Dessert"
da.SelectCommand.CommandType = CommandType.Text
da.SelectCommand.ExecuteNonQuery()

' Viene riempito il DataSet con i dati nel DataAdapter
da.Fill(ds, "Dessert")

' Collegamento del Binding Source con il DataSet
bs.DataSource = ds
bs.DataMember = "Dessert"

' Popolamento della DataGridView con i dati nel DataSet
DessertDataGridView.DataSource = bs

' chiude connessione
conn.Close()
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Me.DessertBindingSource.MovePrevious()
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Me.DessertBindingSource.MoveNext()
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
DessertBindingSource.AddNew()

End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
Dim changes As DataSet = ds.GetChanges()
Dim connection As OleDbConnection = New OleDbConnection(connStr)

' Creazione CommandBuilder
Dim cmb As New OleDbCommandBuilder(da)

' Se articoliDataSet ha subito cambiamenti fa Update sul DB
If Not changes Is Nothing Then
Try
connection.Open()
da.Update(changes, "Dessert")
da.UpdateCommand = cmb.GetUpdateCommand
da.AcceptChangesDuringUpdate = True
MessageBox.Show("OK", "Ricettario PRO", MessageBoxButtons.OK, MessageBoxIcon.Information)
connection.Close()
Catch ex As Exception
MessageBox.Show("Si è verificato un errore durante il salvataggio dei dati nel database!", "Ricettario PRO", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End If
End Sub
End Class

qualcuno mi sa dire dove sbaglio?
 

francovb

Utente Attivo
10 Apr 2004
33
0
0
Trani
Ciao

Hai provato a seguire la configurazione guidata dell'applicazione alla sorgente dati attraverso i controlli Data presenti nella toolbox?

Essi ti permetteranno sia di inserire nuovi record, modificare i dati inseriti, cancellare le registrazioni effettuate nell'origine dati

Buon lavoro
 
Discussioni simili
Autore Titolo Forum Risposte Data
P Riproduzione avi file in una picture box da file .dll .ocx ed altri in visual basic 10 express Offerte e Richieste di Lavoro e/o Collaborazione 0
felino Porting da Visual Basic a C# .NET Framework 3
A [Visual Basic] Frattali in 3 dimensioni Visual Basic 0
StephenSoftware [Visual Basic] Da VB6 a VB.NET Visual Basic 0
D [Visual Basic] [MS Access] query con parametro di testo Visual Basic 4
V [Visual Basic] Richiamare funzione su modulo per restituire list Visual Basic 0
A [Visual Basic] Trasformare stringa in ora Visual Basic 0
B [Visual Basic] Passaggio variabili da un progetto all'altro (Visual Studio 2017 C#/SQL) Visual Basic 0
A [Visual Basic] Consiglio sul datagridview Visual Basic 0
C [Visual Basic] Errore INSERT su DB MySQL (VB.Net) Visual Basic 4
P [Visual Basic] access sql estrarre id vendite x cli e articolo con data maggiore del recordset Visual Basic 2
italo_vb6 [Visual Basic] DirListBox Visual Basic 0
P [Visual Basic] Come riprodurre file avi caricati come risorsa con vb 10 Visual Basic 0
P [Visual Basic] Copiare file piu' grandi di 2 gb in vb6 senza usare filecopy,usando get e put Visual Basic 6
M [Visual Basic] Cambiare lo stato in checked delle checkbox richiamando dati dal database Visual Basic 6
M [Visual Basic] Creare checkbox dinamicamente in TabControl Visual Basic 1
N [Visual Basic] Dichiarare AxWebBrowser in che versione opera Visual Basic 0
M [Visual Basic] Cercare un file pdf all'interno di una cartella attraverso il valore di una txtbox Visual Basic 1
V [Visual Basic] ottenere info su sistema Visual Basic 1
V [Visual Basic] trovare versione di un .exe con vb6 Visual Basic 0
E connessione db in visual basic 2010 Visual Basic 1
S [Visual Basic] access 2010 click su pagina html Visual Basic 1
T [Visual Basic] Criptazione tramite matrice Visual Basic 0
S [Visual Basic] AIUTO - CERCO GUIDA Visual Basic 0
K [Visual Basic] Stampa e modifica record non funziona più Visual Basic 0
I inserimento data in tabelle da visual basic MySQL 0
L Salve sto per iniziare il Visual Basic Visual Basic 1
Z Conversione codice da visual basic a visual.... .NET Framework 1
maxbossi Regolamento Regolamento forum Visual Basic - leggere con attenzione! Visual Basic 0
C Creare semplice timer in Visual Basic Visual Basic 0
Y Connessione Visual Basic con DataBase Access? MS Access 0
F Visual basic 2010 e excel 2007 .NET Framework 1
C [Visual Basic] Installare un programma con pacchetto di installazione Visual Basic 0
E [Visual basic 2008]Orologio Visual Basic 0
L guida o corso per imparare visual basic Visual Basic 0
G [VISUAL BASIC]caricare dati in un database da una console application Visual Basic 3
R Visual Basic ed Access Visual Basic 1
S Come si "moltiplica" un oggetto in Visual basic 6? Visual Basic 3
C Stampare con visual basic Visual Basic 0
M [Visual Basic] Conversione XLS in PDF, urgente! Programmazione 2
G Ricerca in Visual Basic Visual Basic 1
V Visual Basic Access97 - stampare su file PDF Visual Basic 0
F visual basic Visual Basic 0
T visual basic e mdb remoto Visual Basic 16
M [Visual Basic 6.0]Immagine di un bottone Programmazione 2
R visual basic su pocket pc Visual Basic 1
GENZIANA Manuale Visual Basic in italiano? Visual Basic 2
G Visual basic deallocazione istanza classe Visual Basic 1
G Visual basic deallocazione istanza classe Windows e Software 0
M Visual Basic: come aprire il pannello di controllo Visual Basic 6

Discussioni simili