Some Help Please

Hello,

Below is the code unit responsible for the error, "Runtime error 3706,
Provider not found, It may not be properly installed."

This is happening while running the application after the installation and
happening only on few PCs.

Can anybody give any hint on a solution for this?

Function goGetconnection(roCnn As Object, ByVal vsDataPath As String) As
Object

With roCnn

If Not roCnn.State = adStateOpen Then

.ConnectionString = "Provider=MSDASQL.4;DBQ=" & vsDataPath &
";Driver={Microsoft dBase Driver (*.dbf)};Extended Properties=""DefaultDir="
& vsDataPath & ";DriverId=21;FIL=dBase
III;MaxBufferSize=2048;PageTimeout=600;"""

.Open

End If

End With

Set goGetconnection = roCnn

End Function

Thanks and Regards

Sathian

Jan
Thu Apr 29 06:07:47 CDT 2004

"Sathian" <sathian.t@in.bosch.com>'s wild thoughts were
released on Thu, 29 Apr 2004 16:07:09 +0530 bearing the
following fruit:

>Hello,
>
>Below is the code unit responsible for the error, "Runtime error 3706,
>Provider not found, It may not be properly installed."
>
>This is happening while running the application after the installation and
>happening only on few PCs.
>
>Can anybody give any hint on a solution for this?
>
>Function goGetconnection(roCnn As Object, ByVal vsDataPath As String) As
>Object
>
>With roCnn
>
>If Not roCnn.State = adStateOpen Then
>
>.ConnectionString = "Provider=MSDASQL.4;DBQ=" & vsDataPath &
>";Driver={Microsoft dBase Driver (*.dbf)};Extended Properties=""DefaultDir="
>& vsDataPath & ";DriverId=21;FIL=dBase
>III;MaxBufferSize=2048;PageTimeout=600;"""
>
>.Open
>
>End If
>
>End With
>
>Set goGetconnection = roCnn
>
>End Function
>

My guess is that the relevant drivers are no installed on
the PC in question.



--
Jan Hyde (MVP - Visual Basic)

Man walks into a bookshop, picks up two books and goes to the counter.
He cuts the bottom off one trouser leg and hands it to the assistant
saying, "There's a turn-up for the books."

[Abolish the TV Licence - http://www.tvlicensing.biz/]

May
Mon Jul 05 14:08:01 CDT 2004

Hi Sathian,

Have you solved your problem yet? I got the same error as you but only on one PC.
Any solution?

Thanks

May Zheng

"Sathian" wrote:

> Hello,
>
> Below is the code unit responsible for the error, "Runtime error 3706,
> Provider not found, It may not be properly installed."
>
> This is happening while running the application after the installation and
> happening only on few PCs.
>
> Can anybody give any hint on a solution for this?
>
> Function goGetconnection(roCnn As Object, ByVal vsDataPath As String) As
> Object
>
> With roCnn
>
> If Not roCnn.State = adStateOpen Then
>
> ..ConnectionString = "Provider=MSDASQL.4;DBQ=" & vsDataPath &
> ";Driver={Microsoft dBase Driver (*.dbf)};Extended Properties=""DefaultDir="
> & vsDataPath & ";DriverId=21;FIL=dBase
> III;MaxBufferSize=2048;PageTimeout=600;"""
>
> ..Open
>
> End If
>
> End With
>
> Set goGetconnection = roCnn
>
> End Function
>
> Thanks and Regards
>
> Sathian
>
>
>
>