'Connection String not work'..

[Vincent Jones]

I have this code looking at a registered dll, but i keep getting..
Object doesn't support this property or method: 'ConnectionString'
line 9

<%
Dim obj
Dim rs

'Create an instance of the class
set obj = Server.CreateObject("DataAccess.clsDataAccess")

'Set the connection string
obj.ConnectionString = "Provider=SQLOLEDB.1;Data Source=;Initial
Catalog=PUBS;User id=;Password=;"

'Set execute and create our recordset
set rs = obj.fnSQL_RS("SELECT * FROM AUTHORS")

set obj = nothing

'Display something
While not rs.EOF
Response.Write(Trim(rs("AU_LNAME")) + ", " + rs("AU_FNAME") + "<br>")
rs.MoveNext
Wend

set rs = nothing
%>

[Aaron Bertrand [MVP]]

We can't help you unless we know what DataAccess.cldDataAccess is. My first
guess is that, surprise, it doesn't have a property called
"ConnectionString."

Why do you think you should use a DLL to make a connection to a database?
It's actually much more efficient (and easier to debug) if you just make the
connection from ASP.

--
Aaron Bertrand
SQL Server MVP
[url]http://www.aspfaq.com/[/url]




"Vincent Jones" <vncntj@hotmail.com> wrote in message
news:ba2a2d30.0401241332.7b87d30b@posting.google.c om...

> I have this code looking at a registered dll, but i keep getting..
> Object doesn't support this property or method: 'ConnectionString'
> line 9
>
> <%
> Dim obj
> Dim rs
>
> 'Create an instance of the class
> set obj = Server.CreateObject("DataAccess.clsDataAccess")
>
> 'Set the connection string
> obj.ConnectionString = "Provider=SQLOLEDB.1;Data Source=;Initial
> Catalog=PUBS;User id=;Password=;"
>
> 'Set execute and create our recordset
> set rs = obj.fnSQL_RS("SELECT * FROM AUTHORS")
>
> set obj = nothing
>
> 'Display something
> While not rs.EOF
> Response.Write(Trim(rs("AU_LNAME")) + ", " + rs("AU_FNAME") + "<br>")
> rs.MoveNext
> Wend
>
> set rs = nothing
> %>