Time to transfer data in EasyHID

[Demon]

I finally got everything up and running. VB6 is fun once you get into the hang of things, but there's so many tricks, so much flexibility. Programming the PC interface is going to be another project in itself.

Now I'm getting back in that VB6 tutorial I started a few months ago; I'm at the database access section. I defined a basic database for my application in Access (saved in 2000 format), but I'm getting an error when I try to use it in VB6; something about unknown database format. I figure VB6 can only read an older format like Access97 which probably means having to work in Windows '98 again.

Looks like I might have to set up that other PC with dual partition after all (Win XP and '98). I've been putting that off for a while now, ugh...

Robert

[keithdoxey]

Now I'm getting back in that VB6 tutorial I started a few months ago; I'm at the database access section. I defined a basic database for my application in Access (saved in 2000 format), but I'm getting an error when I try to use it in VB6; something about unknown database format. I figure VB6 can only read an older format like Access97 which probably means having to work in Windows '98 again.

Access 2000 works fine with VB6.

Add in Component "Microsoft ADO Data Control 6.0 (OLEDB)"

I have the following declarations in my project

Dim adoConn As New ADODB.Connection
Dim adoRS As New ADODB.Recordset

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

Its a couple of years since I wrote that program but I am pretty sure that your problem is the provider. I think Access 2000 needs Jet4 whereas Access97 was Jet 3.5.

You definately dont need to revert to Win98 as I am running XP.

I actually have a web front end for the database which I use for entering and editing data, my VB app only reads the database for sending commands out of a Comm port although there is no reason why it could be done the opposite way round with VB receiving data and inseeting records into a database that could then be read on a web browser.

Any updates you need including service packs for VB6 should be on the Microsoft website.... somewhere!!!!

HTH

[Demon]

Thanks much!

I tried installing Office 97 on Win XP, not a good idea. :lol:

I'll try your suggestion after I spend some time with my girls.

Robert

[Demon]

Ooops, missed that statement:

"Add in Component "Microsoft ADO Data Control 6.0 (OLEDB)""

I looked for it but I don't have it, at least not spelled that way. Can you tell me what the file name is for that reference? You can see it when you click on the reference. I might have better luck finding it that way.

Robert

[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]

Ooops, missed that statement:

"Add in Component "Microsoft ADO Data Control 6.0 (OLEDB)""

I looked for it but I don't have it, at least not spelled that way. Can you tell me what the file name is for that reference? You can see it when you click on the reference. I might have better luck finding it that way.

Robert

Its a COMPONENT not a REFERENCE

Project>>Components (or CTRL+T)

C:\Windows\System32\MSADODC.OCX