Time to transfer data in EasyHID

[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

[keithdoxey]

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

Just looked at my Laptop and Help>>About didnt seem to indicate a service pack version so I looked in the VB98 directory and all the files were dated 1998.

I had the VB6 service pack on another machine so I extracted it to
c:\temp\vb6sp6\
and ran setupsp6.exe which installed the service pack. Didnt even have to reboot. Now the spash screen indicates SP6 and so does Help>>About

Why are you going to the MS office folders when you are trying to update Visual Basic ?

What I dont understand is why my laptop was working when I didnt have any service packs installed unless Windows XP already has some updated files that VB used.

Before I installed the service pack I created a very basic project from scratch using just the components and references already discussed and using just the ado declarations and setup in Form_Load and that didnt produce any error.

Beats me

I'm wondering if it is the database that is messed up rather than VB

[Demon]

D'uh, 'cause I was rushing on my way out the door for an appointment and I looked at the wrong application. I just checked VB6, it is SP6.

I'll mail you the database and see if you can run it. I click START and get that error.

Robert


EDIT: Keith, I've uploaded the files to my site so you can download them whenever you want (details in email).


GOT IT!


Just above the database name in the Form Properties box there is an item called Connect. That had Access, I changed it to Access 2000 and it works. Thanks Keith!