Hi,
I am trying to execute a stored procedure on AS/400 and I am getting the following error
Exception Details: System.Data.OleDb.OleDbException: No error information available: E_FAIL(0x80004005).
Data Source "flash" is defined in ODBC-DSN area.
Here is the code
Imports System.Data
Imports System.Data.OleDb
Page_Load
Dim connFlash As OleDbConnection
Dim connString As String
Dim cmdFlash As OleDbCommand
Dim prmPolling As OleDbParameter
connString = "Provider=IBMDA400;" & _
"Data source=flash;" & _
"User Id=myuserid;" & _
"Password=mypassword;"
connFlash = New OleDbConnection(connString)
connFlash.Open()
cmdFlash = New OleDbCommand("SPFLASH", connFlash)
cmdFlash.CommandType = CommandType.StoredProcedure
prmPolling = cmdFlash.Parameters.Add("@DTA", SqlDbType.Char)
prmPolling.Size = 20
prmPolling.Direction = ParameterDirection.InputOutput
cmdFlash.ExecuteNonQuery() ====> Error Line
If Not IsDBNull(cmdFlash.Parameters("@DTA"
.Value) Then
lblPolling.Text = cmdFlash.Parameters("@DTA"
.Value
Else
lblPolling.Text = "Nothing Returned"
End If
connFlash.Close()
I am trying to execute a stored procedure on AS/400 and I am getting the following error
Exception Details: System.Data.OleDb.OleDbException: No error information available: E_FAIL(0x80004005).
Data Source "flash" is defined in ODBC-DSN area.
Here is the code
Imports System.Data
Imports System.Data.OleDb
Page_Load
Dim connFlash As OleDbConnection
Dim connString As String
Dim cmdFlash As OleDbCommand
Dim prmPolling As OleDbParameter
connString = "Provider=IBMDA400;" & _
"Data source=flash;" & _
"User Id=myuserid;" & _
"Password=mypassword;"
connFlash = New OleDbConnection(connString)
connFlash.Open()
cmdFlash = New OleDbCommand("SPFLASH", connFlash)
cmdFlash.CommandType = CommandType.StoredProcedure
prmPolling = cmdFlash.Parameters.Add("@DTA", SqlDbType.Char)
prmPolling.Size = 20
prmPolling.Direction = ParameterDirection.InputOutput
cmdFlash.ExecuteNonQuery() ====> Error Line
If Not IsDBNull(cmdFlash.Parameters("@DTA"
lblPolling.Text = cmdFlash.Parameters("@DTA"
Else
lblPolling.Text = "Nothing Returned"
End If
connFlash.Close()