当前位置: 代码迷 >> ASP.NET >> oracle数据库过程调用有关问题
  详细解决方案

oracle数据库过程调用有关问题

热度:2836   发布时间:2013-02-25 00:00:00.0
oracle数据库过程调用问题
olecon.Open()
  olecom.CommandType = CommandType.StoredProcedure
  olecom.CommandText = "innerreg"
  Dim UserName As OracleParameter = New OracleParameter("UserName", OracleType.VarChar, 50)
  UserName.Direction = ParameterDirection.Input
  UserName.Value = TextName.Text
  olecom.Parameters.Add(UserName)
  Dim UserID As OracleParameter = New OracleParameter("UserID", OracleType.VarChar, 50)
  UserID.Direction = ParameterDirection.Input
  UserID.Value = TextID.Text
  olecom.Parameters.Add(UserID)
  Dim Password As OracleParameter = New OracleParameter("Password", OracleType.VarChar, 32)
  Password.Direction = ParameterDirection.Input
  Password.Value = TextPwd.Text
  olecom.Parameters.Add(Password)
  'Dim UserImg As OracleParameter = New OracleParameter("UserImg", OracleType.Blob)
  'UserName.Direction = ParameterDirection.Input
  'UserImg.Value = DBNull.Value
  'olecom.Parameters.Add(UserImg)
  Dim Address As OracleParameter = New OracleParameter("Address", OracleType.VarChar, 96)
  Address.Direction = ParameterDirection.Input
  Address.Value = TextAdd.Text
  olecom.Parameters.Add(Address)
  Dim BirthDay As OracleParameter = New OracleParameter("BirthDay", OracleType.VarChar, 32)
  BirthDay.Direction = ParameterDirection.Input
  BirthDay.Value = DropDownList1.SelectedValue & DropDownList2.SelectedValue & DropDownList3.SelectedValue
  olecom.Parameters.Add(BirthDay)
  Dim Sign As OracleParameter = New OracleParameter("Sign", OracleType.VarChar, 96)
  Sign.Direction = ParameterDirection.Input
  Sign.Value = TextSign.Text
  olecom.Parameters.Add(Sign)
  Dim IsSys As OracleParameter = New OracleParameter("IsSys", OracleType.Number)
  IsSys.Direction = ParameterDirection.Input
  If RadioButton1.Checked = True Then
  IsSys.Value = 1
  Else
  IsSys.Value = 0
  End If
  olecom.Parameters.Add(IsSys)
  Dim RoleGrpID As OracleParameter = New OracleParameter("RoleGrpID", OracleType.VarChar, 32)
  RoleGrpID.Direction = ParameterDirection.Input
  RoleGrpID.Value = ""
  olecom.Parameters.Add(RoleGrpID)
  Dim ShowRange As OracleParameter = New OracleParameter("ShowRange", OracleType.Number)
  ShowRange.Direction = ParameterDirection.Input
  ShowRange.Value = 0
  olecom.Parameters.Add(ShowRange)
  Dim Tel As OracleParameter = New OracleParameter("Tel", OracleType.VarChar, 32)
  Tel.Direction = ParameterDirection.Input
  Tel.Value = TextTel.Text
  olecom.Parameters.Add(Tel)
  Dim QQ As OracleParameter = New OracleParameter("QQ", OracleType.VarChar, 20)
  QQ.Direction = ParameterDirection.Input
  QQ.Value = TextQQ.Text
  olecom.Parameters.Add(QQ)
  Dim Email As OracleParameter = New OracleParameter("Email", OracleType.VarChar, 64)
  Email.Direction = ParameterDirection.Input
  Email.Value = TextMail.Text
  olecom.Parameters.Add(Email)
  Dim SecPwd As OracleParameter = New OracleParameter("SecPwd", OracleType.VarChar, 32)
  SecPwd.Direction = ParameterDirection.Input
  相关解决方案