Invalid cast on SQL to other server

[John Howard]

Making the following call to a local MSAccess database works fine:

Sub Session_Start(B yVal sender As Object, ByVal e As EventArgs)
Dim intRows As Integer
Dim strSQL As String
Dim ds As New DataSet
' Create connection
Dim cn As New OleDbConnection
With cn
.connectionstri ng = "provider=Micro soft.Jet.OLEDB. 4.0;" & _
"Data Source=C:\PDB\D evelopment\Data base\PDB.mdb"
End With
' Open connection
cn.Open()
' -----------------------------------------------------------
' Get System Name
' -----------------------------------------------------------
' Create command
Dim cmd1 As New OleDbCommand
With cmd1
.Connection = cn
.CommandText = "SELECT System FROM Reference"
End With
' Execute the SQL
Dim strSystemName As Integer = cmd1.ExecuteSca lar
However, changing the connectionstrin g to

.ConnectionStri ng = "Provider=M S Remote;" & _
"Remote Server=http://scfmzcp1;" & _
"Remote Provider=Micros oft.Jet.OLEDB.4 .0;" & _
"Data Source=W:\PDB\D evelopment\PDB. mdb;" & _
"Connection Timeout=30"

causes a "Specified cast is not valid" message on the ExecuteScalar line.

Thanks for your help

John

[Patrick Steele [MVP]]

In article <40********@new s.hcs.net>, john@nowhere says...

Making the following call to a local MSAccess database works fine:

Sub Session_Start(B yVal sender As Object, ByVal e As EventArgs)
Dim intRows As Integer
Dim strSQL As String
Dim ds As New DataSet
' Create connection
Dim cn As New OleDbConnection
With cn
.connectionstri ng = "provider=Micro soft.Jet.OLEDB. 4.0;" & _
"Data Source=C:\PDB\D evelopment\Data base\PDB.mdb"
End With
' Open connection
cn.Open()
' -----------------------------------------------------------
' Get System Name
' -----------------------------------------------------------
' Create command
Dim cmd1 As New OleDbCommand
With cmd1
.Connection = cn
.CommandText = "SELECT System FROM Reference"
End With
' Execute the SQL
Dim strSystemName As Integer = cmd1.ExecuteSca lar
However, changing the connectionstrin g to

.ConnectionStri ng = "Provider=M S Remote;" & _
"Remote Server=http://scfmzcp1;" & _
"Remote Provider=Micros oft.Jet.OLEDB.4 .0;" & _
"Data Source=W:\PDB\D evelopment\PDB. mdb;" & _
"Connection Timeout=30"

causes a "Specified cast is not valid" message on the ExecuteScalar line.

To debug, change the line to:

dim temp as Object = cmd1.ExecuteSca lar

And see what "temp" is in the debug window. It's obviously something
that can't be cast to an Integer.

--
Patrick Steele
Microsoft .NET MVP
http://weblogs.asp.net/psteele

[Jorge]

Hi John

In addition to what Patrick suggested i would use a
SqlDataReader to hold the result of your select command
since its possible that it is returning several rows.

Kind Regards
Jorge

-----Original Message-----
Making the following call to a local MSAccess database works fine:
Sub Session_Start(B yVal sender As Object, ByVal e As EventArgs) Dim intRows As Integer
Dim strSQL As String
Dim ds As New DataSet
' Create connection
Dim cn As New OleDbConnection
With cn
.connectionstri ng = "provider=Micro soft.Jet.OLEDB. 4.0;" & _ "Data Source=C:\PDB\D evelopment\Data base\PDB.mdb" End With
' Open connection
cn.Open()
' ----------------------------------------------- ------------ ' Get System Name
' ----------------------------------------------- ------------ ' Create command
Dim cmd1 As New OleDbCommand
With cmd1
.Connection = cn
.CommandText = "SELECT System FROM Reference"
End With
' Execute the SQL
Dim strSystemName As Integer = cmd1.ExecuteSca lar
However, changing the connectionstrin g to

.ConnectionStri ng = "Provider=M S Remote;" & _ "Remote Server=http://scfmzcp1;" & _
"Remote Provider=Micros oft.Jet.OLEDB.4 .0;" & _ "Data Source=W:\PDB\D evelopment\PDB. mdb;" & _ "Connection Timeout=30"

causes a "Specified cast is not valid" message on the ExecuteScalar line.
Thanks for your help

John
.

[Herman Kheyfets]

Is SP return any value?
Maybe you have CAST in sp???

Gerasha

"John Howard" <john@nowhere > wrote in message news:40******@n ews.hcs.net...

Dim dr As OleDbDataReader = cmd1.ExecuteRea der

Same error

"John Howard" <john@nowhere > wrote in message

news:40******@n ews.hcs.net...

This table has only one row.

"Jorge" <an*******@disc ussions.microso ft.com> wrote in message
news:19******** *************** ******@phx.gbl. ..

Hi John

In addition to what Patrick suggested i would use a
SqlDataReader to hold the result of your select command
since its possible that it is returning several rows.

Kind Regards
Jorge
>-----Original Message-----
>Making the following call to a local MSAccess database
works fine:
>
> Sub Session_Start(B yVal sender As Object, ByVal e As
EventArgs)
> Dim intRows As Integer
> Dim strSQL As String
> Dim ds As New DataSet
> ' Create connection
> Dim cn As New OleDbConnection
> With cn
> .connectionstri ng
= "provider=Micro soft.Jet.OLEDB. 4.0;" & _
> "Data
Source=C:\PDB\D evelopment\Data base\PDB.mdb"
> End With
> ' Open connection
> cn.Open()
> ' -----------------------------------------------
------------
> ' Get System Name
> ' -----------------------------------------------
------------
> ' Create command
> Dim cmd1 As New OleDbCommand
> With cmd1
> .Connection = cn
> .CommandText = "SELECT System FROM Reference"
> End With
> ' Execute the SQL
> Dim strSystemName As Integer = cmd1.ExecuteSca lar
>
>
>However, changing the connectionstrin g to
>
> .ConnectionStri ng = "Provider=M S Remote;" &
_
> "Remote Server=http://scfmzcp1;" & _
> "Remote
Provider=Micros oft.Jet.OLEDB.4 .0;" & _
> "Data
Source=W:\PDB\D evelopment\PDB. mdb;" & _
> "Connection Timeout=30"
>
>causes a "Specified cast is not valid" message on the
ExecuteScalar line.
>
>Thanks for your help
>
>John
>
>
>.
>

[Patrick Steele [MVP]]

In article <40********@new s.hcs.net>, john@nowhere says...

Dim temp As Object = cmd1.ExecuteSca lar

Amazing - this gives the same error.

Very odd... Does the Exception that is thrown contain anything in the
"InnerException " property? There's got to be a stack trace somewhere
showing exactly what is throwing the invalid cast exception.

--
Patrick Steele
Microsoft .NET MVP
http://weblogs.asp.net/psteele

[John Howard]

I don't understand

"Herman Kheyfets" <we***@gerasha. com> wrote in message
news:uC******** ******@TK2MSFTN GP11.phx.gbl...

Is SP return any value?
Maybe you have CAST in sp???

Gerasha

"John Howard" <john@nowhere > wrote in message

news:40******@n ews.hcs.net...

Dim dr As OleDbDataReader = cmd1.ExecuteRea der

Same error

"John Howard" <john@nowhere > wrote in message

news:40******@n ews.hcs.net...

This table has only one row.

"Jorge" <an*******@disc ussions.microso ft.com> wrote in message
news:19******** *************** ******@phx.gbl. ..
> Hi John
>
> In addition to what Patrick suggested i would use a
> SqlDataReader to hold the result of your select command
> since its possible that it is returning several rows.
>
> Kind Regards
> Jorge
> >-----Original Message-----
> >Making the following call to a local MSAccess database
> works fine:
> >
> > Sub Session_Start(B yVal sender As Object, ByVal e As
> EventArgs)
> > Dim intRows As Integer
> > Dim strSQL As String
> > Dim ds As New DataSet
> > ' Create connection
> > Dim cn As New OleDbConnection
> > With cn
> > .connectionstri ng
> = "provider=Micro soft.Jet.OLEDB. 4.0;" & _
> > "Data
> Source=C:\PDB\D evelopment\Data base\PDB.mdb"
> > End With
> > ' Open connection
> > cn.Open()
> > ' -----------------------------------------------
> ------------
> > ' Get System Name
> > ' -----------------------------------------------
> ------------
> > ' Create command
> > Dim cmd1 As New OleDbCommand
> > With cmd1
> > .Connection = cn
> > .CommandText = "SELECT System FROM Reference"
> > End With
> > ' Execute the SQL
> > Dim strSystemName As Integer = cmd1.ExecuteSca lar
> >
> >
> >However, changing the connectionstrin g to
> >
> > .ConnectionStri ng = "Provider=M S Remote;" &
> _
> > "Remote Server=http://scfmzcp1;" & _
> > "Remote
> Provider=Micros oft.Jet.OLEDB.4 .0;" & _
> > "Data
> Source=W:\PDB\D evelopment\PDB. mdb;" & _
> > "Connection Timeout=30"
> >
> >causes a "Specified cast is not valid" message on the
> ExecuteScalar line.
> >
> >Thanks for your help
> >
> >John
> >
> >
> >.
> >

[John Howard]

Here is the result. I can't make any sense of it:

Line 71: ' Execute the SQL
Line 72: 'Dim dr As OleDbDataReader = cmd1.ExecuteRea der
Line 73: Dim temp As Object = cmd1.ExecuteSca lar
Line 74: Dim strSystemName As Integer
Line 75: 'Dim strSystemName As Integer = cmd1.ExecuteSca lar
Source File: C:\Inetpub\wwwr oot\WebPDB2\Glo bal.asax.vb Line: 73

Stack Trace:

[InvalidCastExce ption: Specified cast is not valid.]
System.Data.Ole Db.OleDbExcepti on..ctor(IError Info errorInfo, Int32
errorCode, Exception inner)
System.Data.Ole Db.OleDbConnect ion.ProcessResu lts(Int32 hResult,
OleDbConnection connection, Object src)
System.Data.Ole Db.OleDbCommand .ExecuteCommand TextErrorHandli ng(Int32 hr)

System.Data.Ole Db.OleDbCommand .ExecuteCommand TextForSingleRe sult(tagDBPARAM S
dbParams, Object& executeResult)
System.Data.Ole Db.OleDbCommand .ExecuteCommand Text(Object& executeResult)
System.Data.Ole Db.OleDbCommand .ExecuteCommand (CommandBehavio r behavior,
Object& executeResult)
System.Data.Ole Db.OleDbCommand .ExecuteReaderI nternal(Command Behavior
behavior, String method)
System.Data.Ole Db.OleDbCommand .ExecuteScalar( )
WebPDB2.Global. Session_Start(O bject sender, EventArgs e) in
C:\Inetpub\wwwr oot\WebPDB2\Glo bal.asax.vb:73
System.Web.Sess ionState.Sessio nStateModule.Ra iseOnStart(Even tArgs e)
System.Web.Sess ionState.Sessio nStateModule.On Start(EventArgs e)
System.Web.Sess ionState.Sessio nStateModule.Co mpleteAcquireSt ate()
System.Web.Sess ionState.Sessio nStateModule.Be ginAcquireState (Object
source, EventArgs e, AsyncCallback cb, Object extraData)

System.Web.Asyn cEventExecution Step.System.Web .HttpApplicatio n+IExecutionSte p
..Execute()
System.Web.Http Application.Exe cuteStep(IExecu tionStep step, Boolean&
completedSynchr onously) +173


"Patrick Steele [MVP]" <pa*****@mvps.o rg> wrote in message
news:MP******** *************** *@msnews.micros oft.com...

In article <40********@new s.hcs.net>, john@nowhere says...

Dim temp As Object = cmd1.ExecuteSca lar

Amazing - this gives the same error.

Very odd... Does the Exception that is thrown contain anything in the
"InnerException " property? There's got to be a stack trace somewhere
showing exactly what is throwing the invalid cast exception.

--
Patrick Steele
Microsoft .NET MVP
http://weblogs.asp.net/psteele

[Herfried K. Wagner [MVP]]

* "John Howard" <john@nowhere > scripsit:

Making the following call to a local MSAccess database works fine:

Sub Session_Start(B yVal sender As Object, ByVal e As EventArgs)
Dim intRows As Integer
Dim strSQL As String
Dim ds As New DataSet
' Create connection
Dim cn As New OleDbConnection
With cn
.connectionstri ng = "provider=Micro soft.Jet.OLEDB. 4.0;" & _
"Data Source=C:\PDB\D evelopment\Data base\PDB.mdb"
End With
' Open connection
cn.Open()
' -----------------------------------------------------------
' Get System Name
' -----------------------------------------------------------
' Create command
Dim cmd1 As New OleDbCommand
With cmd1
.Connection = cn
.CommandText = "SELECT System FROM Reference"
End With
' Execute the SQL
Dim strSystemName As Integer = cmd1.ExecuteSca lar
However, changing the connectionstrin g to

.ConnectionStri ng = "Provider=M S Remote;" & _
"Remote Server=http://scfmzcp1;" & _
"Remote Provider=Micros oft.Jet.OLEDB.4 .0;" & _
"Data Source=W:\PDB\D evelopment\PDB. mdb;" & _
"Connection Timeout=30"

causes a "Specified cast is not valid" message on the ExecuteScalar line.

.... I suggest to ask this question in a more appropriate group:

<URL:news://news.microsoft. com/microsoft.publi c.dotnet.framew ork.adonet>

Web interface:

<URL:http://msdn.microsoft. com/newsgroups/?dg=microsoft.p ublic.dotnet.fr amework.adonet>

--
Herfried K. Wagner [MVP]
<URL:http://dotnet.mvps.org/>

[Cor Ligthert]

Hi John,

Is the field description of both databases equal

You can of course just try this
Dim strSystemName As Integer = Cint(cmd1.Execu teScalar)

Just a thought,

Cor

[John Howard]

Same error again.

Specified cast is not valid.
Description: An unhandled exception occurred during the execution of
the current web request. Please review the stack trace for more
information about the error and where it originated in the code.

Exception Details: System.InvalidC astException: Specified cast is not
valid.

Source Error:
Line 70: End With
Line 71: ' Execute the SQL
Line 72: Dim strSystemName As Integer =
CInt(cmd1.Execu teScalar)
Line 73: 'Dim dr As OleDbDataReader = cmd1.ExecuteRea der
Line 74: 'Dim temp As Object = cmd1.ExecuteSca lar
Source File: C:\Inetpub\wwwr oot\WebPDB2\Glo bal.asax.vb Line: 72

Stack Trace:
[InvalidCastExce ption: Specified cast is not valid.]
System.Data.Ole Db.OleDbExcepti on..ctor(IError Info errorInfo, Int32
errorCode, Exception inner)
System.Data.Ole Db.OleDbConnect ion.ProcessResu lts(Int32 hResult,
OleDbConnection connection, Object src)

System.Data.Ole Db.OleDbCommand .ExecuteCommand TextErrorHandli ng(Int32
hr)

System.Data.Ole Db.OleDbCommand .ExecuteCommand TextForSingleRe sult(tagDBPARAM S
dbParams, Object& executeResult)
System.Data.Ole Db.OleDbCommand .ExecuteCommand Text(Object&
executeResult)
System.Data.Ole Db.OleDbCommand .ExecuteCommand (CommandBehavio r
behavior, Object& executeResult)

System.Data.Ole Db.OleDbCommand .ExecuteReaderI nternal(Command Behavior
behavior, String method)
System.Data.Ole Db.OleDbCommand .ExecuteScalar( )
WebPDB2.Global. Session_Start(O bject sender, EventArgs e) in
C:\Inetpub\wwwr oot\WebPDB2\Glo bal.asax.vb:72
System.Web.Sess ionState.Sessio nStateModule.Ra iseOnStart(Even tArgs
e)
System.Web.Sess ionState.Sessio nStateModule.On Start(EventArgs e)
System.Web.Sess ionState.Sessio nStateModule.Co mpleteAcquireSt ate()
System.Web.Sess ionState.Sessio nStateModule.Be ginAcquireState (Object
source, EventArgs e, AsyncCallback cb, Object extraData)

System.Web.Asyn cEventExecution Step.System.Web .HttpApplicatio n+IExecutionSte p.Execute()
System.Web.Http Application.Exe cuteStep(IExecu tionStep step,
Boolean& completedSynchr onously) +173


--------------------------------------------------------------------------------
Version Information: Microsoft .NET Framework Version:1.1.432 2.573;
ASP.NET Version:1.1.432 2.573

On Tue, 8 Jun 2004 20:34:58 +0200, "Cor Ligthert"
<no**********@p lanet.nl> wrote:

Hi John,

Is the field description of both databases equal

You can of course just try this
Dim strSystemName As Integer = Cint(cmd1.Execu teScalar)

Just a thought,

Cor