Dakle ovako, imam sledecu stranu

i neki problem pri ažuriranju postojeceg zapisa u tabeli.
Kada kliknem na link "izmena" u DataGridu, podaci za taj zapis se citaju iz tabele i postavljaju u kontrole (TextBox ispod kalendara, TextBox za srpski i engleski). Dugme "Unos" menja svoj tekst u "Ažuriraj", a sve se odigrava tako što se pri kliku na "izmena" radi Response.Redirect("ista_strana.aspx?mode=edit&id=ID_ZAPISA").
Pri kliku na dugme "Ažuriraj", provera se da li je mode "edit" i ako jeste, umesto INSERT, radi se UPDATE, što je definisano sledecim kodom:
Kasnije se normalno nastavlja kod
Problem je što on sve ovo prodje bez greške, ali naravno ne uradi update. Ja sumnjam na to da format datuma nije isti (u SQL Server bazi i na nivou aplikacije radjene u VS2003), ali nemam rešenje.

i neki problem pri ažuriranju postojeceg zapisa u tabeli.
Kada kliknem na link "izmena" u DataGridu, podaci za taj zapis se citaju iz tabele i postavljaju u kontrole (TextBox ispod kalendara, TextBox za srpski i engleski). Dugme "Unos" menja svoj tekst u "Ažuriraj", a sve se odigrava tako što se pri kliku na "izmena" radi Response.Redirect("ista_strana.aspx?mode=edit&id=ID_ZAPISA").
Pri kliku na dugme "Ažuriraj", provera se da li je mode "edit" i ako jeste, umesto INSERT, radi se UPDATE, što je definisano sledecim kodom:
Code:
If (Request("mode") = "edit") Then
komanda.CommandText = "update s_dayHistory set Date = @date, srText = @srText, enText = @enText where ID = @id"
Dim pId As New SqlParameter("@id", SqlDbType.BigInt)
pId.Value = Int32.Parse(Request("id").ToString())
komanda.Parameters.Add(pId)
Dim p1 As New SqlParameter("@date", SqlDbType.SmallDateTime)
p1.Value = DateTime.Parse(txtIzabraniDatum.Text)
'p1.Value = DateTime.Parse(txtEngleski.Text.Substring(0, 9))
komanda.Parameters.Add(p1)
Else
If (Request("mode") = "default") Then
komanda.CommandText = "insert into s_dayHistory(Date, srText, enText)
values(@date, @srText, @enText)"
End If
End If
Dim p2 As New SqlParameter("@srText", SqlDbType.NVarChar, 500)
Dim p3 As New SqlParameter("@enText", SqlDbType.NVarChar, 500)
p2.Value = txtSrpski.Text
p3.Value = txtEngleski.Text
komanda.Parameters.Add(p2)
komanda.Parameters.Add(p3)
If (Request("mode") = "edit") Then
komanda.CommandText = "update s_dayHistory set Date = @date, srText = @srText, enText = @enText where ID = @id"
Dim pId As New SqlParameter("@id", SqlDbType.BigInt)
pId.Value = Int32.Parse(Request("id").ToString())
komanda.Parameters.Add(pId)
Dim p1 As New SqlParameter("@date", SqlDbType.SmallDateTime)
p1.Value = DateTime.Parse(txtIzabraniDatum.Text)
'p1.Value = DateTime.Parse(txtEngleski.Text.Substring(0, 9))
komanda.Parameters.Add(p1)
Else
If (Request("mode") = "default") Then
komanda.CommandText = "insert into s_dayHistory(Date, srText, enText)
values(@date, @srText, @enText)"
End If
End If
Dim p2 As New SqlParameter("@srText", SqlDbType.NVarChar, 500)
Dim p3 As New SqlParameter("@enText", SqlDbType.NVarChar, 500)
p2.Value = txtSrpski.Text
p3.Value = txtEngleski.Text
komanda.Parameters.Add(p2)
komanda.Parameters.Add(p3)
Kasnije se normalno nastavlja kod
Code:
Try
If (konekcija.State = ConnectionState.Closed) Then
konekcija.Open()
End If
komanda.Prepare()
komanda.ExecuteNonQuery()
konekcija.Close()
Catch ex As Exception
Response.Write("Greska: " & ex.Message)
Return
End Try
Try
If (konekcija.State = ConnectionState.Closed) Then
konekcija.Open()
End If
komanda.Prepare()
komanda.ExecuteNonQuery()
konekcija.Close()
Catch ex As Exception
Response.Write("Greska: " & ex.Message)
Return
End Try
Problem je što on sve ovo prodje bez greške, ali naravno ne uradi update. Ja sumnjam na to da format datuma nije isti (u SQL Server bazi i na nivou aplikacije radjene u VS2003), ali nemam rešenje.
Potpis
Winners never quit, quitters never win.