Update Command in visual studio 2005

**=?Utf-8?B?TWlrZQ==?=** · Jun 5 '07, 03:05 AM

RE: Update Command in visual studio 2005

Selvakumar,

Check your mdb file permissions and make sure you have "Modify/Read/Write"
set. You probably have "Write" permission but not "Modify" and that's why you
can insert but can't update.

Mike

"Selvakumar " wrote:

hai friends,
>
I am new to .net programming. I did the inserting data into MS-access database but i couldn't able to perform the update command. I used only textbox and command button for inserting and updating the data. I performed Insert command successfully but i donno y the update command is not working.Pls help.. i ve used all possible update commands. i enclosed all my code( comments also)...
>
Protected Sub Button1_Click(B yVal sender As Object, ByVal e As System.EventArg s) Handles SUBMIT.Click
'Dim a As Integer
Dim b, d, h, c, g, a As String
Dim d1, f As Date
>
'Dim cc As Data.CommandBeh avior
>
Dim objConn As New Data.OleDb.OleD bConnection("Pr ovider=Microsof t.Jet.OLEDB.4.0 ;Data Source=C:\Inetp ub\wwwroot\New Folder\PMTTrack er\DataBase\Gca TAuthentication .mdb")
Dim objCmd As Data.OleDb.OleD bCommand
Dim objDR As Data.OleDb.OleD bDataReader
Dim edit As Integer
objConn.Open()
Try
a = Convert.ToInt32 (TxtSlNo.Text)
b = Txtgrpname.Text .Trim()
c = Txtgrpdesc.Text .Trim()
d = Txtsta.Text.Tri m()
d1 = Convert.ToDateT ime(Txtcdate.Te xt.Trim())
g = Txtcby.Text.Tri m()
f = Convert.ToDateT ime(Txtmdate.Te xt.Trim())
h = Txtmby.Text.Tri m()
'TextBox1.Text = d1
'objCmd = New Data.OleDb.OleD bCommand("updat e GROUP_MASTER SET (GROUP_NAME ,GROUP_DESC,Sta tus,CREATED_DAT E,CREATED_BY,MO DIFIED_DATE,MOD IFIED_BY)WHERE GROUP_ID =TxtSlNo.Text.T rim() AND GROUP_NAME =Txtgrpname.Tex t.Trim() AND GROUP_DESC = Txtgrpdesc.Text .Trim() Status =Txtsta.Text.Tr im() AND CREATED_DATE=Tx tcdate.Text.Tri m() AND CREATED_BY=Txtc by.Text.Trim() AND MODIFIED_DATE=T xtmdate.Text.Tr im() AND MODIFIED_BY =Txtmby.Text.Tr im() ", objConn)
objCmd = New Data.OleDb.OleD bCommand("UPDAT E GROUP_MASTER SET GROUP_NAME ='" & b & "' ,GROUP_DESC ='" & c & "' ,Status ='" & d & "' ,CREATED_BY ='" & f & "' ,MODIFIED_BY='" & h & "' WHERE GROUP_ID ='" & a & "'", objConn)
'objCmd = New Data.OleDb.OleD bCommand("UPDAT E GROUP_MASTER SET GROUP_NAME ='" & b & "' WHERE Status ='" & d & "'", objConn)
>
'UPDATE [GROUP_MASTER] SET [GROUP_NAME] = ?, [GROUP_DESC] = ? WHERE [GROUP_ID] = ? AND [GROUP_NAME] = ? AND [GROUP_DESC] = ?
''objCmd = New Data.OleDb.OleD bCommand("UPDAT E GROUP_MASTER SET GROUP_NAME='" + b + "', GROUP_DESC='" + c + "' , Status='" + d + "' ,CREATED_DATE = @d1 , CREATED_BY='" + g + "', MODIFIED_DATE=@ f , MODIFIED_BY='" + h + "' WHERE GROUP_ID=@a ", objConn)
'objCmd = New Data.OleDb.OleD bCommand("UPDAT E GROUP_MASTER SET GROUP_NAME=@b ,GROUP_DESC=@c , Status=@d ,CREATED_BY=@g ,MODIFIED_BY=@h WHERE [GROUP_ID]=@a", objConn)
'objCmd.Paramet ers.AddWithValu e("@a", a)
'objCmd.Paramet ers.AddWithValu e("@b", b)
'objCmd.Paramet ers.AddWithValu e("@c", c)
'objCmd.Paramet ers.AddWithValu e("@d", d)
''objCmd.Parame ters.AddWithVal ue("@d1", d1)
'objCmd.Paramet ers.AddWithValu e("@g", g)
''objCmd.Parame ters.AddWithVal ue("@f", f)
'objCmd.Paramet ers.AddWithValu e("@h", h)
''objCmd = New Data.OleDb.OleD bCommand("UPDAT E GROUP_MASTER SET GROUP_NAME='" & b & "' WHERE GROUP_ID='" & c & "'", objConn)
''objCmd.Parame ters.AddWithVal ue("@a", a)
''objDR = objCmd.ExecuteR eader()
''Dim str As String
''str = "UPDATE GROUP_MASTER SET GROUP_NAME='" & b & "' WHERE GROUP_DESC='" & c & "'"
''objCmd = New Data.OleDb.OleD bCommand(str, objConn)
objDR = objCmd.ExecuteR eader(System.Da ta.CommandBehav ior.CloseConnec tion)
>
''Server.Transf er("Group Maintanance.asp x")
>
edit = Session("edit")
objCmd = New Data.OleDb.OleD bCommand("selec t * from GROUP_MASTER where GROUP_ID=@Relea se", objConn)
objCmd.Paramete rs.AddWithValue ("@Release", edit)
objDR = objCmd.ExecuteR eader()
objDR.Read()
TxtSlNo.Text = objDR("GROUP_ID ")
Txtgrpname.Text = objDR("GROUP_NA ME")
Txtgrpdesc.Text = objDR("GROUP_DE SC")
Txtsta.Text = objDR("Status")
Txtcdate.Text = Convert.ToStrin g(objDR("CREATE D_DATE"))
Txtcby.Text = Convert.ToStrin g(objDR("CREATE D_BY"))
Txtmdate.Text = Convert.ToStrin g(objDR("MODIFI ED_DATE"))
Txtmby.Text = Convert.ToStrin g(objDR("MODIFI ED_BY"))
objDR.Close()
TextBox1.Text = Txtgrpname.Text
Response.Redire ct("Group Maintanance.asp x", False)
>
Catch ex As Exception
Session("except ion") = ex.StackTrace
Session("url") = Request.ServerV ariables("HTTP_ REFERER")
Response.Redire ct("GenExceptio n.aspx", False)
End Try
'Response.Redir ect("Group Maintanance.asp x")
>
End Sub
>
>
>
>
>
>
>
>
>
>
>
>
Thanks,
>
>
>
From http://www.developmentnow.com/g/34_2...et-general.htm
>
Posted via DevelopmentNow. com Groups

DevelopmentNow - Mobile, Web, and Emerging Tech in Portland

http://www.developmentnow.com

DevelopmentNow is an award-winning creative software development agency integrating mobile, web, hardware, mixed reality, and emerging technology.

>

Update Command in visual studio 2005

Update Command in visual studio 2005

Comment