Login ProductsSalesSupportDownloadsAbout |
Home » Technical Support » ElevateDB Technical Support » Incident Reports » Incident Reports Reported for Version 2.18 » View Incident Report |
Minor |
Reported By: Fabian Kneubuehl Reported On: 11/24/2014 For: Version 2.18 Build 1 |
Public Function InitDB(ByVal Folder As String) As DBError Dim DataCommand As New Elevate.ElevateDB.Data.EDBCommand Dim DataConnection As New Elevate.ElevateDB.Data.EDBConnection If Folder = "" Then InitDB = DBError.FolderNameMissing Exit Function End If If Folder.Substring(Len(Folder) - 1, 1) <> "\" Then Folder += "\" If File.Exists(Folder + DBFILENAME + "." + DBFILEEXT) Then InitDB = DBError.DBAlreadyExists Exit Function End If DataConnection.ConnectionString = "Type=Local; Database=" + DBNAME DataCommand.Connection = DataConnection DataConnection.Open() DataCommand.CommandText = "CREATE DATABASE " + DBNAME + " PATH='" + Folder + "' DESCRIPTION='" + DBDESCRIPTION + "' CONFIGPATH='" + Folder + "'" DataConnection.Close() InitDB = DBError.NoError DataCommand = Nothing DataConnection = Nothing End Function
This web page was last updated on Wednesday, March 20, 2024 at 07:22 AM | Privacy PolicySite Map © 2024 Elevate Software, Inc. All Rights Reserved Questions or comments ? E-mail us at info@elevatesoft.com |