Having to open a db manually before i connect

[metalheadstorm]

ok ive set up a connection between my access db ( 97) and my vb6 interface and this is what i got

form_load
Data6.DatabaseName = App.Path & "\cjmillers.mdb"
Data6.RecordSource = "select * from Orders"
 
 
'............................
'Counts how many order_ID's in the table Orders
'Orderidno is how many in the table
'Orderidlist = Orderidno -1
With Data6
 
    .Refresh
    .Recordset.MoveFirst
    orderidno = DCount("[Order_ID]", "Orders")
    Label17.Caption = orderidlist
    orderidlist = orderidno - 1
        Do Until .Recordset.EOF
        For i = 0 To orderidlist
        Combo3.List(i) = .Recordset.Fields(0)
        .Recordset.MoveNext
        Next i
        Loop
End With
'............................

And a different form

Dataloginuser.DatabaseName = App.Path & "\login.mdb"
Dataloginuser.RecordSource = "select * from user"
 
 
'*********************************
'Fieldno = then number of [name] in the table "user"
'Field = the number of [name] in the table "user" minus 1
'[name] in the table user in the db cjmillers.mdb
 
With Dataloginuser
  .Refresh
  .Recordset.MoveFirst
  fieldno = DCount("[name]", "user")
  Text6.Text = fieldno
  Field = fieldno - 1
    Do Until .Recordset.EOF
        For i = 0 To Field
        Combo1.List(i) = .Recordset.Fields(0)
        'Combo1 user selection combobox
        .Recordset.MoveNext
        Next i
Loop
End With 

The only problem with this is that i have to manually open the database before i run my program with is annoying and i want to avoid. So can someone give me some hints or tips to fix this :(

i have a login db (called login.mdb) and a "main" db called cjmillers.mdb which hold all the order details etc.

when i login it works fine and i dont need to open the db manually but when i try and connect to the "main" db after i log in i have to open up the db or it comes up with a reserved error 2950.


Thanks in advance and i hope someone can help :D

P.s i think its something to do with the Dcount as that is whats highlighted on error

[debasisdas]

Are you trying to open the database while connection is established to the application.

[metalheadstorm]

i run my program, login, it goes to the main menu and in the main menu's form load it connects ( that code i posted before)

[metalheadstorm]

yes i have to open the db then run my program for it to connect propperly, i want it so u dont have to open the db before you run the program... so it connects when the program runs

[debasisdas]

Kindly post the exact error message with error number.

[metalheadstorm]

Run-time error '2950':
Reserved error

when i click debugg the Dcount line is highlighted in yellow

P.s how you make the code text appear in colour ?

[jrtox]

yes i have to open the db then run my program for it to connect propperly, i want it so u dont have to open the db before you run the program... so it connects when the program runs

Hello,
You are using 2 DB, 1 for the Login and 1 for the main DB..
Anyway, Im not using that way.

I have here a sample connecting VB6 and DB, Follow the Link and
Study my attachment..

http://www.thescripts.com/forum/thread719352.html

Regards
Ervin

[debasisdas]

P.s how you make the code text appear in colour ?

Use proper code tags in all your codes.

[metalheadstorm]

Use proper code tags in all your codes.

Thank you :P

............