看看这个Access存储过程的调用,程序不执行内容更新

[yuanweiming841103]

更新新闻内容
＝＝＝＝＝＝＝＝＝＝＝
Private Sub BtnAdd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnAdd.Click 'Add News Content
If Trim(FckNews.Value) = "" Then
LblMsg.Text = "新闻内容不能为空！"
Else
Try '插入成功
Dim Con As New Connection
Dim NewsTitle As String = TxtNews.Text
Dim NewsContent As String = FckNews.Value
Dim ContentClassId As Integer = DdlClass.SelectedItem.Value
Con.UpdateNews("UpDateNews", NewsTitle, NewsContent, Session("EditNewsId"), ContentClassId) '更新内容
LblMsg.Text = "新闻内容已经更新添加！"
Call BtnClear_Click(sender, e)
Catch ex As Exception '插入失败
LblMsg.Text = ex.Message
' LblMsg.Text = "服务器忙，请您稍后再试……"
End Try
End If

End Sub

con类中被调用的更新函数
＝＝＝＝＝＝＝＝＝＝＝＝
Function UpdateNews(ByVal sqlStr As String, ByVal Str1 As String, ByVal Str2 As String, ByVal Int1 As Integer, ByVal Int2 As Integer)
Dim OleConn As New OleDbConnection(GetConnStr)
Dim OleCmd As New OleDbCommand(sqlStr, OleConn)
OleCmd.CommandType = CommandType.StoredProcedure
OleCmd.Parameters.Add("@Str1", Str1)
OleCmd.Parameters.Add("@Str2", Str2)
OleCmd.Parameters.Add("@Int1", Int1)
OleCmd.Parameters.Add("@Int2", Int2)
OleConn.Open()
OleCmd.ExecuteNonQuery()
OleConn.Close()
End Function

存储过程（ACCESS数据库）
UpDateNews
＝＝＝＝＝＝＝＝＝
UPDATE News SET NewsTitle = [@Str1], NewsContent = [@Str2], ContentClassId = [@Int2]
WHERE NewsId=[@Int1];
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
通过跟踪调试，发现错误是在存储过程中，可是存储过程在使用access中的查询执行的时候是可以的
但是就是用程序调用没有反应，程序不显示任何错误，后面的程序也一样执行，就是不更新内容
望高手指教，on line waiting

[xu8512]

稀奇古怪的问题碰多了,Mark

[笨笨兔兔兔兔兔]

我的电脑->工具->文件夹选项->查看->简单文件夹共享的勾去了

右键mdb->安全把everyone权限加上

[nanhaoff]

奇怪的问题
用索引看看

[zhangchenliang]

学习学习