Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
OLEDB Problem : Provider cannot be found
Message
From
11/03/2004 09:55:48
Cetin Basoz
Engineerica Inc.
Izmir, Turkey
 
General information
Forum:
Visual FoxPro
Category:
COM/DCOM and OLE Automation
Miscellaneous
Thread ID:
00884761
Message ID:
00885215
Views:
28
>Cetin
>
>Unfortunately that did not help.
>
>I have tried manually registering the DLL numerous times and each time the registration says it is successful.
>
>It has also been suggested that i try:
>
>cConnectString = "....Provider=""VFPOLEDB.1"";...."
>
>And unfortunately that did not work either :(
>
>Phil.

No I suggested not to use .1 as I remember. BTW am I reading it wrong or there are really extra quotes around VFPOLEDB there ? It should be :
"Provider = VFPOLEDB;..."
Also I saw \\fileserver\... in your datasource. That might lead to problems unless you handle the IIS security for accesing networked files. I'd first try with a local folder. ie: This works very well for me :
<%
    set oConnection = Server.CreateObject( "adodb.connection" ) 
    with oConnection
   	.ConnectionString = "Provider=VFPOLEDB;Data Source=" & _
      "C:\PROGRAM FILES\MICROSOFT VISUAL FOXPRO 7\SAMPLES\data\testdata.dbc;"
	.Open
       .Errors.Clear	
       Set rs = .Execute( "select * from employee" )
    end with

    ' Check results
    Response.Write("<TABLE border='1'><TR><TD>Emp Id</TD>" & _
    "<TD>First Name</TD><TD>Last Name</TD><TD>Title</TD><TD>Born</TD><TD>Hired</TD></TR>" )
    while not rs.eof
            Response.Write("<TR>")
            Response.Write("<TD>" & rs.Fields("emp_id").value & "</TD>")
            Response.Write("<TD>" & rs.Fields("first_name").value & "</TD>")
            Response.Write("<TD>" & rs.Fields("last_name").value & "</TD>")
            Response.Write("<TD>" & rs.Fields("title").value & "</TD>")
            Response.Write("<TD>" & rs.Fields("birth_date").value & "</TD>")
            Response.Write("<TD>" & rs.Fields("hire_date").value & "</TD>")
            Response.Write("</TR>")
            rs.MoveNext
    wend
    Response.Write("</TABLE><BR/>")
	
    oConnection.Close
    set oConnection = nothing
%>
Cetin
Çetin Basöz

The way to Go
Flutter - For mobile, web and desktop.
World's most advanced open source relational database.
.Net for foxheads - Blog (main)
FoxSharp - Blog (mirror)
Welcome to FoxyClasses

LinqPad - C#,VB,F#,SQL,eSQL ... scratchpad
Previous
Reply
Map
View

Click here to load this message in the networking platform