VB connection to access

How do you access the database? and Where is the database stored? and also give the string which connects the program to the database then i could help.

well I made the database using the option in VB and the database is stored in:
f:\School Projects\open\idpro.mdb

idpro.mdb is the database name

There is a program which can store the information your want in the database.

In the program find the string locating the database . If the path is as u said "f:\School Projects\open\idpro.mdb" then change it to "\open\idpro.mdb" and make sure the file is in that directory.. What this does is irrespective of the drive the software is installed the program looks for the file in "\open" directory. Take for example

the directory is some thing like this when u install the software.

d:\School Project --> the application directory of ur project where your exe file is there.

make another directory "open"

so that it looks like this
d:\School Project\open --> this is where the database will be stored locally.


and now do what i said in the code . This must work.

Its been more that three years since i last programmed in VB . I hope this thing works. Test it and let me know.
Charan

Although even I had learnt VB more than a year ago, I think charangk's solution should work.

Creeate string called strPath and Database location


Now use strDatabaseLocation in the connection string for your database object.

What it_waaznt_me suggested will work if the .exe and the .mdb are in the same location (app.path). Actually, thats surely is the most advisable way to store the database.

Never give an absolute path in your code (like "C:\Program Files\MyApp\mydb.mdb"). If the software is installed in some other location, it won't work. So give a relative path and use app.path

How can I give relative path?

Our variable strPath is the relative path to the program location.

try following...

Dim AdoFa As New ADODB.Connection

Dim ConnectString As String

ConnectString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\open\idpro.mdb ; Persist Security Info=False"

With AdoFa
.ConnectionString = ConnectString
.ConnectionTimeout = 10
.CursorLocation = adUseClient
.Open
End With

most of the answers r correct...ur program shud work fine

PainKiller said:

most of the answers r correct...ur program shud work fine

Click to expand...

There was no need of a confirmation to the authenticity of our answers!!

nikdesign4u said:

try following...

Dim AdoFa As New ADODB.Connection

Dim ConnectString As String

ConnectString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\open\idpro.mdb ; Persist Security Info=False"

With AdoFa
.ConnectionString = ConnectString
.ConnectionTimeout = 10
.CursorLocation = adUseClient
.Open
End With

Click to expand...

I tried it by copying it into the code window of data object.But still the error appears that idpro.mdb could not be found.Where should I use the above code provided.(should it be in the code window of data object itself?)

it_waaznt_me said:

Creeate string called strPath and Database location

Code:

Dim strPath as String
Dim strDatabaseLocation as String
strPath = App.Path
strDatabaseLocation = strPath & "\idpro.mdb"

Now use strDatabaseLocation in the connection string for your database object.

Click to expand...

I did not understand your code.Can you please elaborate that to me.I pasted your code in the general declerations window.But it dosent work.
An error appears saying that: "invalid outside procedure" and it highlights that App.path in your code.

Hmm.. First tell me how do you access the database ...? Are you using ADO ? or are you using code based as nikdesign suggested.

Waise nikdesign's method should work. Only change the :

im using ADO.How can I give a elative path in the data property