Imports System
Imports System.Data.SQLite
Imports System.IO
Public Class DatabaseCreation
Private Shared Sub Main(ByVal args As String())
Dim conexion As SQLiteConnection
Dim cmd As SQLiteCommand
Try
conexion = New SQLiteConnection("Data Source=ejemplo01.sqlite;Version=3;" & " New=True; Compress=True;")
conexion.Open()
If Not File.Exists("ejemplo01.sqlite") Then
Dim creacion As String = "create table books (" & " title varchar(50), autor varchar(50)," & " genre varchar(50), summary varchar(50))"
cmd = New SQLiteCommand(creacion, conexion)
cmd.ExecuteNonQuery()
End If
Dim line As String
Dim title As String = "", autor As String = "", genre As String = "", summary As String = ""
Do
Console.Write("Title: ")
line = Console.ReadLine()
If line IsNot Nothing Then title = line
Console.Write("Autor: ")
line = Console.ReadLine()
If line IsNot Nothing Then autor = line
Console.Write("Genre: ")
line = Console.ReadLine()
If line IsNot Nothing Then genre = line
Console.Write("Summary: ")
line = Console.ReadLine()
If line IsNot Nothing Then summary = line
Dim insercion As String = "insert into books values ('" & title & "', '" & autor & "','" & genre & "', '" & summary & "')"
cmd = New SQLiteCommand(insercion, conexion)
cmd.ExecuteNonQuery()
Console.WriteLine("Insert OK!")
Loop While line IsNot Nothing
conexion.Close()
Catch e As Exception
Console.WriteLine("Error" & e.Message)
End Try
End Sub
End Class