I am getting an error "Error Creating product object" at the line Set con = New ODBCConnection
Here is the code :
Option Public
Uselsx "*LSXODBC"
Sub Initialize
Dim con As ODBCConnection
Dim qry As ODBCQuery
Dim result As ODBCResultSet
Dim id As Integer
Dim nam As String,job As String
Am getting Error here
Set con = New ODBCConnection
Set qry = New ODBCQuery
Set result = New ODBCResultSet
Set qry.Connection = con
Set result.Query = qry
status = con.ConnectTo("debug")
qry.SQL = "select * from testtable"
result.Execute
Do
result.NextRow
id = result.GetValue("a", id)
nam = result.GetValue("b", nam)
Loop Until result.IsEndOfData
result.Close(DB_CLOSE)
con.Disconnect
End Sub
I guess it is an error related to Domino.But not sure..... may be related to the ODBC driver also.
Is there any way to solve it.
Kallol
Nandi,
Systems
Analyst,
Indus
Software - A Division of R Systems International Ltd.,
Tidel
Park, Taramani, Chennai-600113, India.
Phone: +91-44-22540014/6
Extn: 209
Fax:
+91-44-22540017
Email: [EMAIL PROTECTED]
Visit us
@ http://www.indussoft.com/
"The
information in this email is confidential, and intended solely for the
addressee. Access to this email by anyone else is unauthorized. If you are the
addressee, the contents of this email are intended for your use only and it must
not be forwarded to any third party, without first obtaining written
authorization from the originator, or Indus Software. It may contain
information, which is confidential and legally privileged, and the same shall
not be used, or dealt with, by any third party, in any manner whatsoever,
without the specific consent of Indus Software.
The
opinions expressed are those of the sender, and do not necessarily reflect those
of the Indus Software."
