作者yukimir (小环)
看板Visual_Basic
标题[.NET] 更新资料传回资料库的问题
时间Sun Jun 8 16:27:44 2008
这是我更新那部份的程式码
sub upd(sender as object,e as datagridcommandeventargs)
dim con as oledbconnection
dim com as oledbcommand
Dim sqlstr As String
dim provider="provider=microsoft.jet.oledb.4.0"
Dim database = "data source=" & Server.MapPath("db2.mdb")
con = new oledbconnection( provider & ";" & database )
con.open()
sqlstr = "update guestbook set 姓名=@姓名,标题=@标题,留言=@留言,时间=@
时间, where 标题=@key"
com=new oledbcommand(sqlstr, con)
com.parameters.add(new oledbparameter("@姓名",oledbtype.char,10))
com.Parameters.Add(New OleDbParameter("@标题", OleDbType.Char, 10))
com.Parameters.Add(New OleDbParameter("@留言", OleDbType.Char, 10))
com.Parameters.Add(New OleDbParameter("@时间", OleDbType.DBDate))
com.parameters.add(new oledbparameter("@key",oledbtype.char))
Dim tx(4) As TextBox
tx(1)=e.item.cells(1).controls(0)
tx(2)=e.item.cells(2).controls(0)
tx(3)=e.item.cells(3).controls(0)
tx(4)=e.item.cells(4).controls(0)
com.parameters("@key").value=dg.datakeys(e.item.itemindex)
com.parameters("@姓名").value=tx(1).text
com.Parameters("@标题").Value = tx(2).Text
com.Parameters("@留言").Value = tx(3).Text
com.Parameters("@时间").Value = tx(4).Text
com.ExecuteNonQuery()
con.close()
dg.edititemindex = -1
data()
end sub
-----------------------------------------------------------------
书上说com.ExecuteNonQuery() 是执行command物件的executenonauery()方法
将资料新增到资料库
可是我每次在浏览器中检视 都会一直显示com.ExecuteNonQuery()这行是错的
可以请问要怎麽改吗?
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 59.115.80.89
1F：推 mathlinka:@时间後面好像多了个逗点... 06/08 17:22
2F：→ yukimir:真的耶！ 我好眼残没发现= = 谢谢你的帮忙~ 06/08 17:27