PDA

View Full Version : [VB.NET] Salvare le modifiche di un dataset in un database


Host Name
05-05-2007, 12:26
Sto studiando VB.NET 2005 ed in particolare mi sto concentrando sull' accesso
ai DB.
Ho una tabella di access il cui tracciato record è il seguente:
Matricola (chiave primaria)
Nome
Cognome
Login
Password

quest'ultimo campo (password) di default è vuoto perchè lo voglio
valorizzare successivamente con una applicazione VB.NET che accede al db,
calcola una password casuale alfanumerica per ogni riga e risalva i dati
aggiornati nel db; quello che non riesco ancora a far funzionare e salvare le
modifiche operate sul dataset all'interno del file di access; il codice
associato ad un tasto che esegue l'operazione è il seguente:

Dim conn As New OleDbConnection

conn.ConnectionString = "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source =
C:\ListaUtenti.mdb"

conn.Open()
Dim MaxRows As Integer
Dim i As Integer
Dim ds As New DataSet
Dim da As OleDbDataAdapter
Dim sql As String
sql = "SELECT * FROM LoginTable"

da = New OleDbDataAdapter(sql, conn)

da.Fill(ds, "dsLoginTable")

conn.Close()

MaxRows = ds.Tables("dsLoginTable").Rows.Count

For i = 0 To MaxRows - 1
ds.Tables("dsLoginTable").Rows(i).Item(4) = PassGenerator(8)
Next

DBGrid.DataSource = ds.Tables(0)

Dim cb As New OleDbCommandBuilder(da)

da.Update(ds,("dsLoginTable")

Passgenerator è una funzione che richiamo ogni volta che voglio generare la
mia password di 8 caratteri.

MI sono basato
su:http://msdn2.microsoft.com/it-it/library/xzb1zw3x(VS.80).aspx

per la procedura di aggiornamento; il dataset viene correttamente aggiornato
ma il db no, l'errore segnalato è:

ERRORE DI SINTASSI NELL'ISTRUZIONE UPDATE



Qualche suggerimento?
Grazie

Einstein
05-05-2007, 12:55
Puoi provare ad costruirti tu manualmente il comando di update senza usare il CommandBuilder (tra l'altro, fortemente sconsigliato).

Dim updateCmd As New OleDbCommand()
updateCmd.Connection = conn
updateCmd.CommandType = CommandType.Text
updateCmd.CommandText = "UPDATE tabella SET..."
da.UpdateCommand = updateCmd
da.Update(ds, "dsLoginTable")

Se il problema è la sintassi, in questo modo riesci a controllarla...

Ciao

Host Name
05-05-2007, 14:37
updateCmd.CommandText = "UPDATE tabella SET..."


Ciao

non mi è chiaro questo passaggio...devo inserire l'istruzione in un ciclo per fargli aggiornare tutte le righe?
come faccio a referenziare il campo password per fare l'update?
UPDATE LoginTable SET Password=ds.Tables("dsLoginTable").Rows(i).Item(4)??

grazie
ciao

Einstein
05-05-2007, 20:25
No, devi inserire il comando SQL per eseguire l'update della tabella.
Quando modifichi un campo di una datatable, la proprietà RowState della datarow diventa "Changed". Quando poi chiami il metodo Update() del DataAdapter, quest'ultimo eseguirà l'UpdateCommand per tutte le rows con RowState=Changed.
La configurazione guidata del DataAdapter può generarti in automatico questo SQL, quindi puoi anche farti generare tutto dall'ambiente di sviluppo per vedere cosa ne esce fuori.

Host Name
05-05-2007, 20:41
No, devi inserire il comando SQL per eseguire l'update della tabella..

Ok...ma com'è fatto sto SQL? :)


La configurazione guidata del DataAdapter può generarti in automatico questo SQL, quindi puoi anche farti generare tutto dall'ambiente di sviluppo per vedere cosa ne esce fuori.

Sono abbastanza allergico ai wizard...ma questa configurazione guidata la trovo anche in Visual Studio Express?

Host Name
05-05-2007, 21:05
Ho provato a rifare tutto in altro modo...

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

Cursor = Cursors.WaitCursor
Dim conn As New OleDbConnection("PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source = C:\Login.mdb")

Dim cmd As New OleDbCommand

cmd.CommandType = CommandType.Text

'cmd.CommandText = "UPDATE LoginTable SET Password = 'q2f4ss56' WHERE ID = 1"

cmd.CommandText = "INSERT INTO LoginTable (COGNOME,NOME,LOGIN,PASSWORD)VALUES('BIANCHI','FRANCO','ancora3','sd34fk65')"

cmd.Connection = conn

conn.Open()

cmd.ExecuteNonQuery()

conn.Close()

End Sub


Ho preso pari pari un esempio MSDN sostituendo solo il db e quindi la tabella...è incredibile ma continua a dirmi che c'è un errore di sintassi nella Query di Update e in quella di INSERT (le ho provate entrambe).
Sto uscendo pazzo

Host Name
05-05-2007, 21:17
AHHHHH!!!! primo risultato, ho modificato il nome del campo PASSWORD in PWD e finalmente sono riuscito a fare la INSERT e l'update con con ExecuteNonQuery; quindi la parola PASSWORD è riservata in ACCESS?
Adesso provo a ritornare sul mio codice iniziale :)
finalmente la nebbia si dirada..almeno spero ;)

Host Name
05-05-2007, 21:23
YEHAAAAA!!!! problema risolto!!! in ACCESS non si può chiamare un campo PASSWORD :)