Printable View
HI,
iam hotcoding the database path as c:\emp.mdb in VB using ADODB connection.
I want to know whether there is any other way for eg in unix dot(.) and dot dot directory(..)
Because if user instal my project in another computer it will be problem for him and he has to change the directories is there any way?
please reply
thank u
sowmya s
DataPath = IIf(Right(App.Path, 1) = "\", App.Path & "data.mdb", App.Path & "\data.mdb")
Quote:
Originally Posted by thuongall
HI,
please explain me bit what u r doing.........
iam new and i did't get
thank u
sowmya s
Dear Sowmya,
Try this code. It will work fine. Simply you have to change the database name "Sales2006.mdb" to your database name.
Write this code in a module.
And call it in your Form. (Form Load_Event)Code:Public db As New ADODB.Connection
Public rs As New ADODB.Recordset
Public Sub data_connect()
Dim path As String
path = App.path & "\SALES2006.mdb"
db.CursorLocation = adUseClient
db.Open "Provider=microsoft.jet.oledb.4.0;persist security info=false;data source=" & path & ";"
End Sub
hope it will help you.Code:Call data_connect
Regards,
Sweetie.
dear sweetie,
I did what u wrote but it is giving error.
i want to run my application without any restriction where the database is placed ie cdrive or ddrive or e drive..................
how to do this??
please help me
Quote:
Originally Posted by sweetie
HI sweetie,
please help me...........
where i should call the data_connect ie where i should place call data_connect
please show me in below code
Private Sub Form_Load()
Me.MousePointer = 11
Set con3 = New ADODB.Connection
con3.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=C:\emp.mdb"
con.Open
Set rs3 = New ADODB.Recordset
rs3.Open "deduction", con3, adOpenKeyset, adLockPessimistic, adCmdTable 'opening the recordset explained in the notes
rs3.MoveFirst
lbldate.Caption = Format(Date, "dddd, dd mmmm yyyy")
Me.MousePointer = 0
End Sub
please tell me immediately
Just place it in the same folder (or a sub-folder beneath) the application folder.
Then you can use
so that it will always be reachableCode:app.path & "\myfolder" & mydbname
Quote:
Originally Posted by dglienna
HI,
as sweetie told i did.......................
actually my database was in c:\emp.mdb
now i placed that database in ,where my project is there say forms folder(all forms and applications also there)
but now still it is reffering in c:\emp.mdb.........
what to do?
OK, dglienna! But if application folder is C:\ (or D:\...) and u place the database file in the same folder then App.Path & "\Data.mdb" = "C:\\Data.mdb" ==> error!
Why do this???Quote:
Originally Posted by thuongall
HIQuote:
Originally Posted by thuongall
I did't get u........
please see the code and tell me where to place call data_connect,and which i should remove
in module i placed code as sweetie said.
thank u
sowmya
It's not a good idea to install your app to the root folder.
Call it what you want, but place it in it's own folder. If it's \Program Files, you can use "d:\program files\my app\myapp.exe" or "c:\program files\my app\myapp.exe"
The app path will always give the right drive, and folder.
If you use "d:\program files\my app\myfolder\mydb.mdb"
You can refer to it aswhether it's on C:, D:, or anywhere else.Code:"App.Path & "\MyFolder\mydb.mbd"
@ sowmya s:
Find: path = App.path & "\emp.mdb"
Replace: path = IIf(Right(App.Path, 1) = "\", App.Path & "emp.mdb", App.Path & "\emp.mdb")
@ dglienna:
If application in "C:\myapp.exe" and database in "C:\mydata.mdb" then...???
Quote:
Originally Posted by dglienna
Really iam confused..................
i placed the below code in module
Public con As New ADODB.Connection
Public rs As New ADODB.Recordset
Public Sub data_connect()
Dim path As String
path = App.path & "\emp.mdb"
con.CursorLocation = adUseClient
con.Open "Provider=microsoft.jet.oledb.4.0;persist security info=false;data source=" & path & ";"
End Sub
Now i should call in form load right?
where please show me,iam placing the code below
actually before sweetie gives above code, i use to do as below shown
Private con As ADODB.Connection
Private rs As ADODB.Recordset
Private Sub Form_Load()
Me.MousePointer = 11
Set con2 = New ADODB.Connection
con2.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=D:\emp.mdb"
con2.Open
Set rs2 = New ADODB.Recordset
rs2.Open "employee", con2, adOpenKeyset, adLockPessimistic, adCmdTable 'opening the recordset explained in the notes
rs2.MoveFirst
end sub
please help me
sowmya s
Quote:
Originally Posted by sowmya s
Code:Private Sub Form_Load()
Dim path As String
path = IIf(Right(App.Path, 1) = "\", App.Path & "emp.mdb", App.Path & "\emp.mdb")
Me.MousePointer = 11
Set con2 = New ADODB.Connection
con2.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & path
con2.Open
Set rs2 = New ADODB.Recordset
rs2.Open "employee", con2, adOpenKeyset, adLockPessimistic, adCmdTable 'opening the recordset explained in the notes
rs2.MoveFirst
end sub
Windows XP with SP2 doesn't require anymore than one "\" in the root directory, and adding a second one doesn't hurt things. If you are using a different OS, then you might need to check for a trailing "\"
I still have code in one of my apps that fixes the pathname, but checked it out, and it doesn't matter for XP SP2.
I don't know if this is the best way but I fell in love with it:
Use UDL files - udls files are files that holds the connection string
so when you change the location of the DB you can enter this file without touching your code.
In your code you - call the udl file in the very place you used to call the DB file.
I used to work with access - I dont know if it can work with real DB's
Good luch
Dear Sowmya,
Could you please send your project so that I can modify it for you.
Regards,
Sweetie.
HI,sweetie,
please tell me that, the code u have given to insert in module ie connection is only for one form or for whole project it applies??
whether i have to insert another sub like data_connect1 for another form............please tell me in detail about this module
thank u
sowmya
I have a module for all DB related tasks. I can call this function from anywhere within the app, when I want to connect.
and here's another subroutine in the same module that calls it.Code:Function GetConnString() As String
GetConnString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\Collection.mdb;Persist Security Info=False"
End Function
This way, I only have to change one line of code if anything about the db changes. If I want to move to SQL, I change one thing (basically) for a new connection string.Code:Sub DeleteFromClients()
strSQL = "DELETE * FROM CLIENT WHERE AccountNo="
strSQL = strSQL & frmClients.flx.TextMatrix(mrow, 0)
' Debug.Print strSQL
cn.Open GetConnString
cn.Execute strSQL
Set cn = Nothing
End Sub
Listen to me very carefully,to make it simple you have to do certain things.
1.If you are saving your exe in c:\application then save your mdb file in that very folder.
2.Now write the code as
conn.Open ("PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=" & App.Path & "\TEST.mdb"
App.path signifies the path of your exe i.e c:\application
I hope now its clear for you to grasp the basic.
Rudraksh
Please check this sample project (Just I created for you). It may help you to know how to connect.Quote:
Originally Posted by sowmya s
Note: I am a learner like you.
Sweetie.
well what rudraksh says is perfect but for that saumya s have to work out for that. at this place you should not expect exact program to be written by some other programmer for you.
once you get some work around pls try to find it out and make use of it.
In all previous posts what i found was none of the asking parties were intrested in doing some R&D, they were looking for spoon feeding. Pls avoid such things and try to find the solns once you get some work around. for example when it is told that you can get the things done using app.path then you should have studied about that function despite of posting another ques of how to use it.
I never meant to hurt any one but if at this time you will not make it a practice to find the things by your own this profession will be hard for you to survive. hope you will get the core and will not feel bad.
still we r all here to help each and every one in problem.
Take Care!!
Hey Pranay, Come on man.he was just trying to find a solution in a socratic manner...:):)Quote:
Originally Posted by pranay
Quote:
Originally Posted by pranay
Dear pranay,
Thank u for ur comments or advice...
But one thing i want to tell u...No one can complete the whole project by using some Hints or some code ofcourse they have to do something by their own........
one thing i wanted to tell u is iam VB learner.............so some douts are common i think so...
After trying so manythings in so manyways..even then if i don't get then
i will seek help from forum...............
dear pranay,iam not expecting exact code from any programmer like u....
please see my first post of this topic...........actually i wanted to try in different way so i put a question..........again iam telling u i don't have any connection problem just i wanted to do in different way like as u said ......SPOON FEEDING
as u told about spoon feeding..........some may have some time restrictions due to that they may ask spoonfeeding.......................
pranay iam not accusing u.........just iam telling about myside.please don't feel bad......and understand others
ofcourse u are right............one have to do by himself or herself........then only they get knowledge.
hope i did't hurt u or anyone.............
actually my connection was working fine and just i wanted try it in another method like as in unix ie directory method.....
My heartful thanks for those who replying and answering my questions and responding to my queries.
REALLY MANY MANY THANKS FOR ALL OF U, WHO POSTED AND ANSWERED MY SILLY QUESTIONS IAM GREATFUL TO U ALL........I LEARNT MANY THINGS THANK U.THANK U.....VERY..VERY.MUCH
once again thank u
sowmya s
pranay
I want to show you a different point of view.
Some years ago I got my first job. I had to write a dll that translates sales or purchases into a transaction between the main program Oracle and a finance system.
Needless to say I knew nothing of oracle and Pl-SQL, of the finance system and I was not a too good VB programmer - and to make it better: three guys before me failed in accomplishing this mission.
Now... you can say they should not have give me this job, and you can say that I own the salary I made to the people here that helped me survive there and begin a nice career.
I say you are right.
I try to continue this "pass it over" (I think there is a cute movie with this name) and help others.
I know that my LIFE could take a different path, and I don't think that it could be too good... without the good will of so many angles that helped me whenever I needed them.
It may be only code for you – but for me it's a big deal
Thank you and the other angles for your help
Nobody likes to look stupid or lazy - sometimes you simply need some help - you are not smart enough, you don't have time, you had a bad day...
If you don't want to help - DONT
But I want to believe you do
Asaf
Thank u for ur help...........i did same thing in my project module as u did in module........Quote:
Originally Posted by sweetie
sweetie i will try this again and let u know about this thank u very much...
iam very new to VB hence i get so many doubts and questions. sometime if i search in vb books i don't find exact answer so, i seek help from u people
thank u
sowmya s
Just change the database name in the module;Quote:
Originally Posted by sowmya s
Instead of Soumya.mdb to your database name:
And in the Form_Load event, change table name Address to your table name:
If you don't want to add navigation buttons on form, then there is no need of the following code in Form_Load event.Code:Private Sub Form_Load()
Call data_connect
rs.Open "Select * from Address Order By Name", db, adOpenDynamic, adLockOptimistic
If Not rs.EOF Then
rs.MoveFirst
lblrecords.Caption = "Record " & rs.AbsolutePosition & " of " & rs.RecordCount
End If
show_rec
txt_lock
End Sub
Hope this will help you a little bit.Code:If Not rs.EOF Then
rs.MoveFirst
lblrecords.Caption = "Record " & rs.AbsolutePosition & " of " & rs.RecordCount
End If
Regards,
Sweetie.
dear giladasaf and sowmya S,
In one of my post to your reply i think i was harsh enough to annoy not only you but some other members also. Pls dont mind that and believe me, my intentions were not to harass you in any case nor to show that you dont know anything or so... what i intended was if you r having a feeling of getting the perfect solutions from the forum, then pls change your attitude as this will be harmful for you in future thats all.
still if you feel bad for that i appologize, if i have hurt you in any case.
again you r most welcome to put your doubts and problems forward to get solns, as we too improve with every solutions we provide.
and dear giladasaf,
there is nothing like if you dont want to help then DONT...
buddy if we know we must share this is what i feel and follow in life, but if some learns from what you know it really gives you satisfaction. well no explaination herafter buddies... enjoy coding and learning...
Hope you guys will take it positively,
Take Care...