Public Function OpenDatabase() As Boolean Dim Find As Boolean = False Dim PenPath As String = "" For i As Byte = 70 To 82 If System.IO.Directory.Exists(Microsoft.VisualBasic.Chr(i) & ":\JyothiIMS") = True Then Microsoft.VisualBasic.FileSystem.ChDrive(Microsoft.VisualBasic.Chr(i) & ":\") Microsoft.VisualBasic.FileSystem.ChDir(Microsoft.VisualBasic.Chr(i) & ":\JyothiIMS") PenPath = Microsoft.VisualBasic.Chr(i) & ":\JyothiIMS" Find = True Exit For End If Next If Find = True Then APPApplicationPath = Microsoft.VisualBasic.FileSystem.CurDir DefaultBackupPath = Microsoft.VisualBasic.FileSystem.CurDir + "\Backup" APPDataBasePath = Microsoft.VisualBasic.FileSystem.CurDir + "\inventory.mdb" APPPhotoPath = Microsoft.VisualBasic.FileSystem.CurDir + "\images\" Else APPApplicationPath = Microsoft.VisualBasic.FileSystem.CurDir DefaultBackupPath = Microsoft.VisualBasic.FileSystem.CurDir + "\Backup" APPDataBasePath = Microsoft.VisualBasic.FileSystem.CurDir + "\inventory.mdb" APPPhotoPath = Microsoft.VisualBasic.FileSystem.CurDir + "\images\" End If Try Conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & APPDataBasePath & ";Jet OLEDB:Database Password=prakash" DbfConnString = Conn.ConnectionString Conn.Open() OpenDatabase = True Dim dbf As New ADODB.Recordset dbf.Open("select * from company", Conn, ADODB.CursorTypeEnum.adOpenStatic, ADODB.LockTypeEnum.adLockOptimistic) If dbf.RecordCount > 0 Then dbf.Close() Else dbf.Close() Company.ShowDialog() dbf.Open("select * from company", Conn, ADODB.CursorTypeEnum.adOpenStatic, ADODB.LockTypeEnum.adLockOptimistic) If dbf.RecordCount > 0 Then dbf.Close() Else dbf.Close() Conn = Nothing ISDataBaseOpen = False End If End If dbf.Open("Select * from Company", Conn, ADODB.CursorTypeEnum.adOpenStatic, ADODB.LockTypeEnum.adLockOptimistic) dbf.MoveFirst() CompanyDetails.Name = dbf.Fields("CmpName").Value.ToString CompanyDetails.Title = dbf.Fields("CmpTitle").Value.ToString CompanyDetails.Address = dbf.Fields("CmpAddress").Value.ToString CompanyDetails.City = dbf.Fields("cmpCity").Value.ToString CompanyDetails.State = dbf.Fields("CmpState").Value.ToString CompanyDetails.Country = dbf.Fields("CmpCountry").Value.ToString CompanyDetails.phone1 = dbf.Fields("CmpContact1").Value.ToString CompanyDetails.phone2 = dbf.Fields("CmpContact2").Value.ToString CompanyDetails.Tin = dbf.Fields("CmpTinNo").Value.ToString CompanyDetails.SalesTax = dbf.Fields("CmpStNo").Value.ToString CompanyDetails.Version = dbf.Fields("CmpVersion").Value CompanyDetails.DbName = dbf.Fields("CmpDBName").Value.ToString CompanyDetails.TrailCount = dbf.Fields("TrailCount").Value CompanyDetails.Istrail = dbf.Fields("IsTrail").Value CompanyDetails.ImageFolder = dbf.Fields("ImageFolder").Value.ToString CompanyDetails.DbServer = dbf.Fields("DatabaseServer").Value.ToString CompanyDetails.DbPassword = dbf.Fields("Databasepwd").Value.ToString CompanyDetails.CurrentDate = dbf.Fields("CreateDate").Value CompanyDetails.PeriodFrom = dbf.Fields("PeriodFrom").Value CompanyDetails.PeriodTo = dbf.Fields("PeriodTo").Value CompanyDetails.IsFixedDate = dbf.Fields("IsFixedDate").Value CompanyDetails.CompanyType = dbf.Fields("CompanyType").Value CompanyDetails.IsAutobackup = dbf.Fields("AutoBackup").Value CompanyDetails.SoftwareKey = dbf.Fields("softwarekey").Value.ToString CompanyDetails.ProductKey = dbf.Fields("ProID").Value.ToString CompanyDetails.BackupPath = dbf.Fields("BackupPath").Value.ToString CompanyDetails.CPUID = dbf.Fields("cpucode").Value.ToString CompanyDetails.HDDID = dbf.Fields("hddcode").Value.ToString CompanyDetails.UpadateCode = dbf.Fields("tobeupdate").Value ApplicationStoredPath = dbf.Fields("ApplicationPath").Value.ToString 'MsgBox(dbf.Fields("CompanyType").Value)softwarekey If CompanyDetails.CompanyType = 0 Then CompanyType = CompanyTypeStruct.Simple ElseIf CompanyDetails.CompanyType = 1 Then CompanyType = CompanyTypeStruct.Simplewithvat ElseIf CompanyDetails.CompanyType = 2 Then CompanyType = CompanyTypeStruct.advance ElseIf CompanyDetails.CompanyType = 3 Then CompanyType = CompanyTypeStruct.advancewithvat ElseIf CompanyDetails.CompanyType = 4 Then CompanyType = CompanyTypeStruct.AdvanceSimpleWithoutColor ElseIf CompanyDetails.CompanyType = 5 Then CompanyType = CompanyTypeStruct.AdvanceWithoutColor ElseIf CompanyDetails.CompanyType = 6 Then CompanyType = CompanyTypeStruct.AdvancedWithADDDiscountLVH End If DefaultBackupPath = CompanyDetails.BackupPath dbf.Close() If PasswordEntry.ShowDialog() = DialogResult.Cancel Then OpenDatabase = False ISDataBaseOpen = False Else ISDataBaseOpen = True End If Catch ex As Exception OpenDatabase = False Try Conn.Close() Catch ex3 As Exception End Try Conn = Nothing ISDataBaseOpen = False MsgBox(ex.Message) End Try End Function
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)