在 System.ArgumentException 中第一次偶然出现的“System.Data.dll”类型的异常

believebowps 2006-12-26 08:56:58
Dim strcnn As String = "sever=192.168.0.66;database=zjc_netconfer;user id=maverickjj;password=zsjyc;"
Dim myconnection As New SqlConnection(strcnn)
Dim mycommand As New SqlCommand("sp_sd_career_news", myconnection)

'使用存储过程
mycommand.CommandType = CommandType.StoredProcedure

' 向存储过程添加参数
Dim prmUnit_title As New SqlParameter("@title", SqlDbType.VarChar, 250)
prmUnit_title.Value = unit_title
mycommand.Parameters.Add(prmUnit_title) '信息标题

Dim prmusername As New SqlParameter("@username", SqlDbType.VarChar, 250)
prmusername.Value = username
mycommand.Parameters.Add(prmusername) '信息发布人

Try
myconnection.Open()
mycommand.ExecuteNonQuery()
myconnection.Close()
Catch SQLexc As SqlException
MessageBox.Show("添加失败,原因:" & SQLexc.ToString())
End Try




-----------------------------存储过程

set ANSI_NULLS ON
set QUOTED_IDENTIFIER ON
go




ALTER procedure [dbo].[sp_sd_career_news]
@title varchar(250),
@username varchar(250)


as
begin
insert into sd_career_news(unit_title,username)
values(@title,@username)
end




------------
以上是我的代码,我看了很多遍,应该没有错吧
但为什么一运行就会提示 在 System.ArgumentException 中第一次偶然出现的“System.Data.dll”类型的异常

谢谢各位
...全文
568 2 打赏 收藏 转发到动态 举报
写回复
用AI写文章
2 条回复
切换为时间正序
请发表友善的回复…
发表回复
shan1119 2006-12-26
  • 打赏
  • 举报
回复
code:


Private Sub procedure()
Dim con As New OracleClient.OracleConnection("Data Source=kokusan;User Id=mtp;Password=totax;Integrated Security=no;")
Dim mycommand As New OracleClient.OracleCommand("SP_KEY_ADD", con)

mycommand.CommandType = CommandType.StoredProcedure

Dim prmUnit_title As New OracleClient.OracleParameter("v_KEY_INDEX", OracleClient.OracleType.VarChar, 250)
prmUnit_title.Value = Now.Hour & ""
mycommand.Parameters.Add(prmUnit_title)

Dim prmusername As New OracleClient.OracleParameter("v_KEY_ID", OracleClient.OracleType.VarChar, 250)
prmusername.Value = Now.Minute & ":" & Now.Second
mycommand.Parameters.Add(prmusername)

Dim rtn As New OracleClient.OracleParameter("v_result", OracleClient.OracleType.Int16)
mycommand.Parameters.Add(rtn)
mycommand.Parameters("v_result").Direction = ParameterDirection.Output

Try
con.Open()
mycommand.ExecuteNonQuery()
con.Close()
Catch SQLexc As OracleClient.OracleException
MessageBox.Show("reason:" & SQLexc.ToString())
End Try
End Sub

procedure:


create or replace procedure SP_KEY_ADD(
v_KEY_INDEX VARCHAR,
v_KEY_ID VARCHAR,
v_result out int
) is
begin
insert into key(KEY_INDEX,KEY_ID)values(v_KEY_INDEX,v_KEY_ID);
v_result := 0;
commit;
return;
exception when others then
rollback;
v_result := 1;
return;
end SP_KEY_ADD;

重典 2006-12-26
  • 打赏
  • 举报
回复
是不是username/unit_title在第一次是NULL啊?

16,549

社区成员

发帖
与我相关
我的任务
社区描述
VB技术相关讨论,主要为经典vb,即VB6.0
社区管理员
  • VB.NET
  • 水哥阿乐
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧