| T.R | Title | User | Personal
Name | Date | Lines |
|---|
| 1347.1 | He should get help from Microsoft on VB... | M5::JBALOGH | | Wed May 28 1997 09:09 | 5 |
| Is this RDO (as opposed to ADO)? I would recommend he call Microsoft...
We don't formally support VB...
John
|
| 1347.2 | Might be RDO.... | BROKE::BASTINE | | Wed May 28 1997 10:17 | 6 |
| Not sure John. I'll have to double check...
In any case, he already called MS and they told him it was a problem with our
driver. Thus, it is back in our laps.
Renee
|
| 1347.3 | sorry, that seems to be the standard answer... | M5::JBALOGH | | Wed May 28 1997 13:30 | 20 |
| >In any case, he already called MS and they told him it was a
This is getting old...
>Object variable or with block variable not set.
>Runtime error 91
Both of the above errors are returned by Visual Basic, NOT ODBC. The
calls the customer is making are VB calls, not ODBC calls.
This is typical VB programming error. It indicates a VB object was not
properly set up before it was used. I get these all the time doing VB
code, with or without ODBC.
So, we are going to need more information before we can call this a
driver problem...
john
PS: I don't have any problem with stored procedures using native ODBC.
|
| 1347.4 | .0 fixed, left with error in assignment problems | BROKE::BASTINE | | Thu May 29 1997 15:24 | 20 |
| Customer solved this issue in .0, they got the answer from Microsoft!
Now he is having another problem that is generating a
[ORACLE][ODBC]Error in Assignment
error. I have asked him for his code. He said it is very small and
straight forward, so as soon as I have it I'll post it here.
John, I told him there was someone else on our team who had gotten this
to work, so he is hopeful, perhaps with the code he provides me with you'll
know what the problem is right away?
I have asked him to turn off fetch ahead (gives him something to try while
waiting for the code).... not sure if it is needed in this case or not.
I'll post a reply with the code.
Thanks,
REnee
|
| 1347.5 | Here is the code... | BROKE::BASTINE | | Thu May 29 1997 19:11 | 49 |
| Here is the code he is trying to use:
... here's the code it's failing with an Assignment error.
' make sure ActiveX Data Objects (ADO) 1.0 Lib is in references
' and NOT DAO
Sub f52()
Dim con As New ADODB.Connection
Dim Cmd As New ADODB.Command
con.Open "prod_db", "usr", "pwd"
Set Cmd.ActiveConnection = con
'Cmd.CommandText = "getcuridx"
'Cmd.CommandType = adCmdStoredProc
Cmd.CommandType = adCmdText
Cmd.CommandText = "call getcuridx(?)"
'Set objParam = Cmd.CreateParameter("RetVal", adInteger,
adParamReturnValue, 0)
'Cmd.Parameters.Append objParam
Set objParam = Cmd.CreateParameter("STARTINDEX", adInteger,
adParamOutput, 0)
Cmd.Parameters.Append objParam
' it's failing on the execute with an assignment error
Cmd.Execute
End Sub
Private Sub run_Click()
Call f52
End Sub
The sp code is
Create module web_sps lang sql
Procedure getcuridx(out :x integer);
Begin;
Set trans read only reserving runtimparms for shared read;
Select parmvalue into :x
From runtimparms
Where param = 'CURIDX';
Commit;
End;
End module;
!
! runtimparms is just
create table runtimparms(param char(10), parmvalue int);
Anyone know why this is failing??
Thanks,
Renee
|
| 1347.6 | it's what comes out that matters... :) | M5::JBALOGH | | Thu May 29 1997 20:14 | 7 |
| What comes out in terms of ODBC? Can you post a SQL.LOG? You can get
one of these by enabling SQL Tracing in the ODBC admin...
You did say he was using a recent version of ODBC didn't you? Seems as
though there was a problem like this in some older versions.
John
|
| 1347.7 | Will get SQL tracing | BROKE::BASTINE | | Thu May 29 1997 21:29 | 5 |
| Thanks John, I'll ask him to turn on tracing... in the ODBC Administrator...
He is using 2.10.11 unless I was misinformed about the version too. ;)
Renee
|
| 1347.8 | sql.log file | BROKE::BASTINE | | Fri May 30 1997 10:05 | 558 |
| Here is the SQL.LOG file
VB5 fe:e4 ENTER SQLAllocEnv
HENV * 0x00ec1468
VB5 fe:e4 ENTER SQLAllocConnect
HENV 0x00ec1930
HDBC * 0x0012f714
VB5 fe:e4 EXIT SQLAllocConnect with return code 0
(SQL_SUCCESS)
HENV 0x00ec1930
HDBC * 0x0012f714 ( 0x00ec2550)
VB5 fe:e4 ENTER SQLSetConnectOptionW
HDBC 0x00ec2550
UWORD 103
UDWORD 15
VB5 fe:e4 EXIT SQLSetConnectOptionW with return code 0
(SQL_SUCCESS)
HDBC 0x00ec2550
UWORD 103
UDWORD 15
VB5 fe:e4 ENTER SQLDriverConnectW
HDBC 0x00ec2550
HWND 0x00000000
WCHAR * 0x00ec2400 [ 78]
"DSN=prod_db;UID=t15tg1;PWD=die_sanders;"
SWORD 78
WCHAR * 0x00eb3060
SWORD 2046
SWORD * 0x00000000
UWORD 0 <SQL_DRIVER_NOPROMPT>
VB5 fe:e4 EXIT SQLDriverConnectW with return code 0
(SQL_SUCCESS)
HDBC 0x00ec2550
HWND 0x00000000
WCHAR * 0x00ec2400 [ 78]
"DSN=prod_db;UID=user;PWD=pwd;"
SWORD 78
WCHAR * 0x00eb3060
SWORD 2046
SWORD * 0x00000000
UWORD 0 <SQL_DRIVER_NOPROMPT>
VB5 fe:e4 ENTER SQLGetInfoW
HDBC 0x00ec2550
UWORD 77 <SQL_DRIVER_ODBC_VER>
PTR 0x0012f6f4
SWORD 24
SWORD * 0x00000000
VB5 fe:e4 EXIT SQLGetInfoW with return code 0
(SQL_SUCCESS)
HDBC 0x00ec2550
UWORD 77 <SQL_DRIVER_ODBC_VER>
PTR 0x0012f6f4
SWORD 24
SWORD * 0x00000000
VB5 fe:e4 ENTER SQLGetInfoW
HDBC 0x00ec2550
UWORD 79 <SQL_POS_OPERATIONS>
PTR 0x0012f4c0
SWORD 4
SWORD * 0x00000000
VB5 fe:e4 EXIT SQLGetInfoW with return code 0
(SQL_SUCCESS)
HDBC 0x00ec2550
UWORD 79 <SQL_POS_OPERATIONS>
PTR 0x0012f4c0
SWORD 4
SWORD * 0x00000000
VB5 fe:e4 ENTER SQLGetInfoW
HDBC 0x00ec2550
UWORD 83 <SQL_STATIC_SENSITIVITY>
PTR 0x0012f4c0
SWORD 4
SWORD * 0x00000000
VB5 fe:e4 EXIT SQLGetInfoW with return code 0
(SQL_SUCCESS)
HDBC 0x00ec2550
UWORD 83 <SQL_STATIC_SENSITIVITY>
PTR 0x0012f4c0
SWORD 4
SWORD * 0x00000000
VB5 fe:e4 ENTER SQLGetInfoW
HDBC 0x00ec2550
UWORD 78 <SQL_LOCK_TYPES>
PTR 0x0012f4c0
SWORD 4
SWORD * 0x00000000
VB5 fe:e4 EXIT SQLGetInfoW with return code 0
(SQL_SUCCESS)
HDBC 0x00ec2550
UWORD 78 <SQL_LOCK_TYPES>
PTR 0x0012f4c0
SWORD 4
SWORD * 0x00000000
VB5 fe:e4 ENTER SQLGetInfoW
HDBC 0x00ec2550
UWORD 81 <SQL_GETDATA_EXTENSIONS>
PTR 0x0012f4c0
SWORD 4
SWORD * 0x00000000
VB5 fe:e4 EXIT SQLGetInfoW with return code 0
(SQL_SUCCESS)
HDBC 0x00ec2550
UWORD 81 <SQL_GETDATA_EXTENSIONS>
PTR 0x0012f4c0
SWORD 4
SWORD * 0x00000000
VB5 fe:e4 ENTER SQLGetInfoW
HDBC 0x00ec2550
UWORD 72 <SQL_TXN_ISOLATION_OPTION>
PTR 0x0012f4c0
SWORD 4
SWORD * 0x00000000
VB5 fe:e4 EXIT SQLGetInfoW with return code 0
(SQL_SUCCESS)
HDBC 0x00ec2550
UWORD 72 <SQL_TXN_ISOLATION_OPTION>
PTR 0x0012f4c0
SWORD 4
SWORD * 0x00000000
VB5 fe:e4 ENTER SQLGetInfoW
HDBC 0x00ec2550
UWORD 8 <SQL_FETCH_DIRECTION>
PTR 0x0012f4c0
SWORD 4
SWORD * 0x00000000
VB5 fe:e4 EXIT SQLGetInfoW with return code 0
(SQL_SUCCESS)
HDBC 0x00ec2550
UWORD 8 <SQL_FETCH_DIRECTION>
PTR 0x0012f4c0
SWORD 4
SWORD * 0x00000000
VB5 fe:e4 ENTER SQLGetInfoW
HDBC 0x00ec2550
UWORD 44 <SQL_SCROLL_OPTIONS>
PTR 0x0012f4c0
SWORD 4
SWORD * 0x00000000
VB5 fe:e4 EXIT SQLGetInfoW with return code 0
(SQL_SUCCESS)
HDBC 0x00ec2550
UWORD 44 <SQL_SCROLL_OPTIONS>
PTR 0x0012f4c0
SWORD 4
SWORD * 0x00000000
VB5 fe:e4 ENTER SQLGetInfoW
HDBC 0x00ec2550
UWORD 43 <SQL_SCROLL_CONCURRENCY>
PTR 0x0012f4c0
SWORD 4
SWORD * 0x00000000
VB5 fe:e4 EXIT SQLGetInfoW with return code 0
(SQL_SUCCESS)
HDBC 0x00ec2550
UWORD 43 <SQL_SCROLL_CONCURRENCY>
PTR 0x0012f4c0
SWORD 4
SWORD * 0x00000000
VB5 fe:e4 ENTER SQLGetInfoW
HDBC 0x00ec2550
UWORD 82 <SQL_BOOKMARK_PERSISTENCE>
PTR 0x0012f4c0
SWORD 4
SWORD * 0x00000000
VB5 fe:e4 EXIT SQLGetInfoW with return code 0
(SQL_SUCCESS)
HDBC 0x00ec2550
UWORD 82 <SQL_BOOKMARK_PERSISTENCE>
PTR 0x0012f4c0
SWORD 4
SWORD * 0x00000000
VB5 fe:e4 ENTER SQLGetInfoW
HDBC 0x00ec2550
UWORD 111 <SQL_NEED_LONG_DATA_LEN>
PTR 0x0012f4c4
SWORD 512
SWORD * 0x00000000
VB5 fe:e4 EXIT SQLGetInfoW with return code 0
(SQL_SUCCESS)
HDBC 0x00ec2550
UWORD 111 <SQL_NEED_LONG_DATA_LEN>
PTR 0x0012f4c4
SWORD 512
SWORD * 0x00000000
VB5 fe:e4 ENTER SQLGetInfoW
HDBC 0x00ec2550
UWORD 23 <SQL_CURSOR_COMMIT_BEHAVIOR>
PTR 62656
SWORD 4
SWORD * 0x00000000
VB5 fe:e4 EXIT SQLGetInfoW with return code 0
(SQL_SUCCESS)
HDBC 0x00ec2550
UWORD 23 <SQL_CURSOR_COMMIT_BEHAVIOR>
PTR 62656
SWORD 4
SWORD * 0x00000000
VB5 fe:e4 ENTER SQLGetInfoW
HDBC 0x00ec2550
UWORD 24 <SQL_CURSOR_ROLLBACK_BEHAVIOR>
PTR 62656
SWORD 4
SWORD * 0x00000000
VB5 fe:e4 EXIT SQLGetInfoW with return code 0
(SQL_SUCCESS)
HDBC 0x00ec2550
UWORD 24 <SQL_CURSOR_ROLLBACK_BEHAVIOR>
PTR 62656
SWORD 4
SWORD * 0x00000000
VB5 fe:e4 ENTER SQLGetInfoW
HDBC 0x00ec2550
UWORD 46 <SQL_TXN_CAPABLE>
PTR 62656
SWORD 4
SWORD * 0x00000000
VB5 fe:e4 EXIT SQLGetInfoW with return code 0
(SQL_SUCCESS)
HDBC 0x00ec2550
UWORD 46 <SQL_TXN_CAPABLE>
PTR 62656
SWORD 4
SWORD * 0x00000000
VB5 fe:e4 ENTER SQLSetConnectOptionW
HDBC 0x00ec2550
UWORD 1
UDWORD 0
VB5 fe:e4 EXIT SQLSetConnectOptionW with return code 0
(SQL_SUCCESS)
HDBC 0x00ec2550
UWORD 1
UDWORD 0
VB5 fe:e4 ENTER SQLSetConnectOptionW
HDBC 0x00ec2550
UWORD 0
UDWORD 0
VB5 fe:e4 EXIT SQLSetConnectOptionW with return code 0
(SQL_SUCCESS)
HDBC 0x00ec2550
UWORD 0
UDWORD 0
VB5 fe:e4 ENTER SQLGetInfoW
HDBC 0x00ec2550
UWORD 6 <SQL_DRIVER_NAME>
PTR 0x0012f47c
SWORD 52
SWORD * 0x00000000
VB5 fe:e4 EXIT SQLGetInfoW with return code 0
(SQL_SUCCESS)
HDBC 0x00ec2550
UWORD 6 <SQL_DRIVER_NAME>
PTR 0x0012f47c
SWORD 52
SWORD * 0x00000000
VB5 fe:e4 ENTER SQLGetFunctions
HDBC 0x00ec2550
UWORD 0
UWORD * 0x0012f600
VB5 fe:e4 EXIT SQLGetFunctions with return code 0
(SQL_SUCCESS)
HDBC 0x00ec2550
UWORD 0
UWORD * 0x0012f600 (0)
VB5 fe:e4 ENTER SQLGetInfoW
HDBC 0x00ec2550
UWORD 1 <SQL_ACTIVE_STATEMENTS>
PTR 63204
SWORD 4
SWORD * 0x00000000
VB5 fe:e4 EXIT SQLGetInfoW with return code 0
(SQL_SUCCESS)
HDBC 0x00ec2550
UWORD 1 <SQL_ACTIVE_STATEMENTS>
PTR 63204
SWORD 4
SWORD * 0x00000000
VB5 fe:e4 ENTER SQLGetConnectOptionW
HDBC 0x00ec2550
UWORD 109
PTR 0x0012f4dc
VB5 fe:e4 EXIT SQLGetConnectOptionW with return code 0
(SQL_SUCCESS)
HDBC 0x00ec2550
UWORD 109
PTR 0x0012f4dc
VB5 fe:e4 ENTER SQLAllocStmt
HDBC 0x00ec2550
HSTMT * 0x0012f710
VB5 fe:e4 EXIT SQLAllocStmt with return code 0
(SQL_SUCCESS)
HDBC 0x00ec2550
HSTMT * 0x0012f710 ( 0x00eb8980)
VB5 fe:e4 ENTER SQLGetStmtOption
HSTMT 0x00eb8980
UWORD 6
PTR 0x0012f5bc
VB5 fe:e4 EXIT SQLGetStmtOption with return code 0
(SQL_SUCCESS)
HSTMT 0x00eb8980
UWORD 6
PTR 0x0012f5bc
VB5 fe:e4 ENTER SQLGetStmtOption
HSTMT 0x00eb8980
UWORD 7
PTR 0x0012f5c0
VB5 fe:e4 EXIT SQLGetStmtOption with return code 0
(SQL_SUCCESS)
HSTMT 0x00eb8980
UWORD 7
PTR 0x0012f5c0
VB5 fe:e4 ENTER SQLGetConnectOptionW
HDBC 0x00ec2550
UWORD 108
PTR 0x0012f5c4
VB5 fe:e4 EXIT SQLGetConnectOptionW with return code 0
(SQL_SUCCESS)
HDBC 0x00ec2550
UWORD 108
PTR 0x0012f5c4
VB5 fe:e4 ENTER SQLSetStmtOption
HSTMT 0x00eb8980
UWORD 0
UDWORD 30
VB5 fe:e4 EXIT SQLSetStmtOption with return code 0
(SQL_SUCCESS)
HSTMT 0x00eb8980
UWORD 0
UDWORD 30
VB5 fe:e4 ENTER SQLSetStmtOption
HSTMT 0x00eb8980
UWORD 7
UDWORD 1
VB5 fe:e4 EXIT SQLSetStmtOption with return code 0
(SQL_SUCCESS)
HSTMT 0x00eb8980
UWORD 7
UDWORD 1
VB5 fe:e4 ENTER SQLPrepareW
HSTMT 0x00eb8980
WCHAR * 0x00ec34f0 [ 34] "call getcuridx(?)"
SDWORD 34
VB5 fe:e4 EXIT SQLPrepareW with return code 0
(SQL_SUCCESS)
HSTMT 0x00eb8980
WCHAR * 0x00ec34f0 [ 34] "call getcuridx(?)"
SDWORD 34
VB5 fe:e4 ENTER SQLNumParams
HSTMT 0x00eb8980
SWORD * 0x00ec23f8
VB5 fe:e4 EXIT SQLNumParams with return code 0
(SQL_SUCCESS)
HSTMT 0x00eb8980
SWORD * 0x00ec23f8 (1)
VB5 fe:e4 ENTER SQLParamOptions
HSTMT 0x00eb8980
UDWORD 1
UDWORD * 0x00ec23fc
VB5 fe:e4 EXIT SQLParamOptions with return code 0
(SQL_SUCCESS)
HSTMT 0x00eb8980
UDWORD 1
UDWORD * 0x00ec23fc (0)
VB5 fe:e4 ENTER SQLBindParameter
HSTMT 0x00eb8980
UWORD 1
SWORD 4 <SQL_PARAM_OUTPUT>
SWORD -16 <SQL_C_SLONG>
SWORD 4 <SQL_INTEGER>
UDWORD 0
SWORD 0
PTR 0x00ec3b80
SDWORD 0
SDWORD * 0x00ec3b10
VB5 fe:e4 EXIT SQLBindParameter with return code 0
(SQL_SUCCESS)
HSTMT 0x00eb8980
UWORD 1
SWORD 4 <SQL_PARAM_OUTPUT>
SWORD -16 <SQL_C_SLONG>
SWORD 4 <SQL_INTEGER>
UDWORD 0
SWORD 0
PTR 0x00ec3b80
SDWORD 0
SDWORD * 0x00ec3b10 (0)
VB5 fe:e4 ENTER SQLExecute
HSTMT 0x00eb8980
VB5 fe:e4 EXIT SQLExecute with return code -1
(SQL_ERROR)
HSTMT 0x00eb8980
VB5 fe:e4 ENTER SQLErrorW
HENV 0x00000000
HDBC 0x00000000
HSTMT 0x00eb8980
WCHAR * 0x0012f114 (NYI)
SDWORD * 0x0012f110
WCHAR * 0x0012f120
SWORD 1024
SWORD * 0x0012f0e6
VB5 fe:e4 EXIT SQLErrorW with return code 0
(SQL_SUCCESS)
HENV 0x00000000
HDBC 0x00000000
HSTMT 0x00eb8980
WCHAR * 0x0012f114 (NYI)
SDWORD * 0x0012f110 (0)
WCHAR * 0x0012f120 [ 68] "[Oracle][ODBC]Error in
assignment."
SWORD 1024
SWORD * 0x0012f0e6 (68)
VB5 fe:e4 ENTER SQLErrorW
HENV 0x00000000
HDBC 0x00000000
HSTMT 0x00eb8980
WCHAR * 0x0012f114 (NYI)
SDWORD * 0x0012f110
WCHAR * 0x0012f120
SWORD 1024
SWORD * 0x0012f0e6
VB5 fe:e4 EXIT SQLErrorW with return code 100
(SQL_NO_DATA_FOUND)
HENV 0x00000000
HDBC 0x00000000
HSTMT 0x00eb8980
WCHAR * 0x0012f114 (NYI)
SDWORD * 0x0012f110
WCHAR * 0x0012f120
SWORD 1024
SWORD * 0x0012f0e6
VB5 fe:e4 ENTER SQLCancel
HSTMT 0x00eb8980
VB5 fe:e4 EXIT SQLCancel with return code 0
(SQL_SUCCESS)
HSTMT 0x00eb8980
VB5 fe:e4 ENTER SQLFreeStmt
HSTMT 0x00eb8980
UWORD 0 <SQL_CLOSE>
VB5 fe:e4 EXIT SQLFreeStmt with return code 0
(SQL_SUCCESS)
HSTMT 0x00eb8980
UWORD 0 <SQL_CLOSE>
VB5 fe:e4 ENTER SQLFreeStmt
HSTMT 0x00eb8980
UWORD 0 <SQL_CLOSE>
VB5 fe:e4 EXIT SQLFreeStmt with return code 0
(SQL_SUCCESS)
HSTMT 0x00eb8980
UWORD 0 <SQL_CLOSE>
VB5 fe:e4 ENTER SQLFreeStmt
HSTMT 0x00eb8980
UWORD 1 <SQL_DROP>
VB5 fe:e4 EXIT SQLFreeStmt with return code 0
(SQL_SUCCESS)
HSTMT 0x00eb8980
UWORD 1 <SQL_DROP>
VB5 fe:e4 ENTER SQLDisconnect
HDBC 0x00ec2550
VB5 fe:e4 EXIT SQLDisconnect with return code 0
(SQL_SUCCESS)
HDBC 0x00ec2550
VB5 fe:e4 ENTER SQLFreeConnect
HDBC 0x00ec2550
VB5 fe:e4 EXIT SQLFreeConnect with return code 0
(SQL_SUCCESS)
HDBC 0x00ec2550
---- End of Message ----
|
| 1347.9 | possibly data related? | M5::JBALOGH | | Fri May 30 1997 11:06 | 5 |
| I tested this with native ODBC using the same calls as being issued to
the driver from ActiveX and it worked fine. Can we get a client log to
see what data is being returned?
John
|
| 1347.10 | no need for client logs yet... | M5::JBALOGH | | Fri May 30 1997 11:14 | 5 |
| Wait, I was able to duplicate this problem by tweaking parameters. I
need to do some more testing to see if someone is not conforming to the
ODBC spec.
John
|