mirror of
https://github.com/KevinMidboe/linguist.git
synced 2025-10-29 09:40:21 +00:00
18 lines
480 B
Plaintext
18 lines
480 B
Plaintext
Dim dbFile As FolderItem
|
|
Dim db As New SQLiteDatabase
|
|
dbFile = GetFolderItem("Employees.sqlite")
|
|
db.DatabaseFile = dbFile
|
|
If db.Connect Then
|
|
db.SQLExecute("BEGIN TRANSACTION")
|
|
db.SQLExecute ("INSERT INTO Employees (Name,Job,YearJoined) VALUES "_
|
|
+"('Dr.Strangelove','Advisor',1962)")
|
|
If db.Error then
|
|
MsgBox("Error: " + db.ErrorMessage)
|
|
db.Rollback
|
|
Else
|
|
db.Commit
|
|
End If
|
|
Else
|
|
MsgBox("The database couldn't be opened. Error: " + db.ErrorMessage)
|
|
End If
|