Aggiornare un datagrid

giovedì 06 luglio 2006 - 09.11

Elenco Threads

Stanze Forum

Aggiungi ai Preferiti

Cerca nel forum

bluland2 Profilo | Newbie

31 messaggi | Data Invio: gio 6 lug 2006 - 09:11

ho un datagrid di cui edito solo un campo semplicemente digitando un opportuno button con la seguente query:

update dbo.ORD_Web
set Accepting_Date = current_timestamp
where id = 3

una volta effettuato l'edit vorrei visualizzare il datagrid aggiornato cosi vorrei effettuare questa select
select * from dbo.ORD_Web
where id = 3
in qualche modo quindi le vorrei processare una dopo l'altra come fare?
vorrei che dopo l'update del solo campo Accepting_Date mi venisse aggiornato e rivisualizzato il datagrid inviando la seconda query, avevo pensato di usare UNION ma non va bene, qualche idea anche diversa dalla mia per ottenere lo stesso risultato??
saluti

Enzo

bluland2 Profilo | Newbie

31 messaggi | Data Invio: gio 6 lug 2006 - 11:25

beh in realta' avevo pensato a questo metodo delle 2 query per scappare proprio da questo poiche non so come fare ecco come ho :

una sub da cui effettuo la selezione per visualizzare il datagrid :

Private Sub Lstcampi_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Lstcampi.SelectedIndexChanged

Dim queryOrdsuddett As String = "select * " & _
"from Ord_web " & _
"where Sud_Order= @elemento " & _
"order by Shipping_Date"

Try

Me.Connloc.Open()

Dim cmd As New SqlCommand(queryOrdspadett, Me.Connloc)
cmd.Parameters.Add("@elemento", Me.Lstcampi.SelectedItem.Value)

Dim read As SqlDataReader

read = cmd.ExecuteReader(CommandBehavior.CloseConnection)

Me.DgItem.DataSource = read
Me.DgItem.DataBind()
Me.DgItem.Visible = True
Me.Lblitem.Visible = True

Catch es As Exception
End Try
End Sub

ecco invece la sub che effettua l'updload:

Private Sub dagrid_itembound(ByVal sender As Object, ByVal e As DataGridCommandEventArgs) Handles DgItem.ItemCommand

Dim queryModifica As String = "UPDATE ord_web " & _
"SET Accepting_Date= CURRENT_TIMESTAMP " & _
" WHERE id= @elemento"

Try
Me.txtcerca.Text = e.Item.Cells(1).Text
Me.Connloc.Open()

Dim cmd As New SqlCommand(queryModifica, Me.Connloc)

cmd.Parameters.Add("@elemento", e.Item.Cells(1).Text)

Dim read As SqlDataReader

read = cmd.ExecuteReader(CommandBehavior.closeconnection)

Catch ex As Exception

End Try

End Sub

come faccio a fare il databind?

grazie per l'aiuto

EDIT:

forse dovrei, in qualche modo rendere GLOBALE il datasource che si crea??

tu che ne dici?

Torna su

Stanze Forum

Elenco Threads

Partecipa anche tu! Registrati!

Hai bisogno di aiuto ?
Perchè non ti registri subito?

Dopo esserti registrato potrai chiedere
aiuto sul nostro Forum oppure aiutare gli altri

Consulta le Stanze disponibili.

Registrati ora !