Time to transfer data in EasyHID

[keithdoxey]

Hi Robert,

I was thinking about this as I was out driving and realised I hadnt checked what references I had included.

Microsoft DAO 3.6 Objects Library
Microsoft ActiveX Data Objects 2.7 library

You have added MDAC 2.8 which is newer than MDAC 2.7 that I have included but I have just tried with 2.8 and it works fine.

Make sure you are using the JET4.0 provider not JET3.51

http://www.devx.com/vb2themax/Tip/18535

I just changed my code to

strConn = "Provider=Microsoft.Jet.OLEDB.3.51;Data Source="
strConn = strConn & "K:\HTML\db\KAT5AV.mdb"
adoConn.ConnectionString = strConn
adoConn.Open

and got the error you are getting.

http://support.microsoft.com/kb/q238401/

says that This problem was first corrected in Visual Studio 6.0 Service Pack Service Pack 4

Service pack available here

http://msdn.microsoft.com/vstudio/do...6/default.aspx

[Demon]

Thanks Keith, tried with them and I still get the error.

I'm downloading service pack 6 now.

Robert


EDIT: Nope, same error, unrecognized database format. Tried with Microsoft ActiveX Data Objects 2.7 library, I also tried inverting the 2 references in case priority was important, same error.

[Demon]

I put the code when I load the form, is that ok?

Private Sub Form_Load()
Dim adoConn As New ADODB.Connection
Dim adoRS As New ADODB.Recordset

strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="
strConn = strConn & "E:\EasyHID\Xk1 v2\USBProject\VisualBASIC\Modified code\NR2003.mdb"
adoConn.ConnectionString = strConn
adoConn.Open
End Sub

Or should I make another subroutine for this?

Robert

[keithdoxey]

I put the code when I load the form, is that ok?

Private Sub Form_Load()
Dim adoConn As New ADODB.Connection
Dim adoRS As New ADODB.Recordset

strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="
strConn = strConn & "E:\EasyHID\Xk1 v2\USBProject\VisualBASIC\Modified code\NR2003.mdb"
adoConn.ConnectionString = strConn
adoConn.Open
End Sub

Or should I make another subroutine for this?

Robert

Thats exactly where I put it !

Private Sub Form_Load()
    strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="
    strConn = strConn & "K:\HTML\db\KAT5AV.mdb"
    adoConn.ConnectionString = strConn
    adoConn.Open
    MSComm1.CommPort = 3
    If MSComm1.PortOpen = False Then MSComm1.PortOpen = True
End Sub

Having said that, the one big difference I see is that you declare your adoConn and adoRS within the subroutine therefore they are not global variables and once you leave Form_Load they arent accessable.

Mine are declared in General Declarations.

[Demon]

Ok, fixed the Components and the code, still got the same error. Do you have more components or references?

Robert

[Demon]

I checked in Access and I have version 2000 set by default. 2002 is there but not enabled.

Robert

[keithdoxey]

Ok, fixed the Components and the code, still got the same error. Do you have more components or references?

Robert

Just checked, the only other Component is Microsoft Comm Control 6.0 but that is for the serial port so is irrelevant.

I do have one more reference.... OLE Automation ... maybe that is the problem. c:\windows\system32\stdole2.tlb

If that doesnt work can you email me a copy of the database and I will see if I can open it.

keith at diyha dot co dot uk

[Demon]

Nope, not it, but I did notice one thing while I was checking Access. It says SP3 even though I just ran SP6. I think I screwed up the update.

When the download says "Where do you want to extract the files?", where do I want it to go? Here?
E:\Microsoft Office\Office10

I had extracted to a temporary folder and ran SETUP.

Robert