Click here to Skip to main content
15,897,273 members

Comments by adrian@csdev (Top 8 by date)

adrian@csdev 25-Mar-13 10:05am View    
Sagarjainhr email me at info@csdev.co.za and I will write you a sample application to check is the Access Database Engin is installed or not
adrian@csdev 25-Mar-13 9:56am View    
My next question to you is what is the extension on your database is it *.mdb or *.accdb and is there an instance of Microsoft Office Access installed on the pc that you wish to install your program?

Explanation!:
*.mdb uses the Microsoft.Jet.OLEDB.4.0 Drivers for Access 2003 and later
*.accdb uses the Microsoft.ACE.OLEDB.12.0 Drivers for Access 2007 and earlier,

If that is the case of your issue then just migrate your database from a *.mdb to a *.accdb, which means is find a pc with Office 2007 or 2010 and just copy your tables, queries, forms and views and change your database extension in your app.

If that is not the case of your issue, then email me at info @ csdev . co . za (No spaces inbetween) and I will write you a small sample project inorder to check if the provider exists.
adrian@csdev 23-Mar-13 3:48am View    
Deleted
Oops sorry my bad...

Copy this and replace the while reader.read()

While reader.read()
Dim nItem As New ListViewItem
nItem = listview2.items.add(reader.item(0).tostring)
nItem.SubItems.Add(reader.item(1).tostring)
nItem.SubItems.Add(reader.item(2).tostring)
nItem.SubItems.Add(reader.item(3).tostring)
End While

adrian@csdev 21-Mar-13 20:00pm View    
Go to this weblink and download both 32bit (25.6 MB) and 64bit (28.1 MB) packages and add them as pre-requisites in your applications installer

http://www.microsoft.com/en-in/download/details.aspx?id=13255
adrian@csdev 21-Mar-13 19:42pm View    
But theres still a hitch coz the client might take the date of the pc and change it one day back, My suggestion would be to create a count variable as integer and at the application's startup events, if its first run then set count = (Days Left), The days left have to be from installed date + 10,20,30 etc. depending on when the expiration date is, or say something like this

Label1.Text = Date.Today
Label2.Text = "2013/03/25"
Dim expDate As Date
expDate = Label2.Text
Dim installedDate As Date
installedDate = Label1.Text

Dim s As TimeSpan
s = expDate.Subtract(installedDate)
and then store variable s (encrypted in the registry and each time the app runs it will get s and subtract 1 until it's 0 , by that time it will prompt the user to by the app

Also bare in mind that when the application is removed the registry key with variable s will not be removed so users cannot bypass the rules by uninstalling and reinstalling the app