miércoles, 6 de noviembre de 2013

Cómo utilizar VB con SQLite

Como un lenguaje de programación, Visual Basic tiene la capacidad de desarrollar aplicaciones muy robustas y ligeras. Una de las formas en que las aplicaciones de VB pueden mantenerse lo más ligero posible y reducir la carga general de la CPU es el uso de SQLite, una infraestructura de base de datos basado en MySQL que se utiliza a menudo como una caché de archivos temporales de aplicaciones de escritorio.

FACTORES bióticos guepardo

Crear un nuevo proyecto de Visual Basic, haga clic en "Archivo" y luego navegar a "New Visual Basic" y luego "Windows de la aplicación."



Crear la base de datos SQLite mediante la creación de un subprograma para generar la propia base de datos:

Private Sub btn_createdb_Click (remitente de ByVal como System.Object, ByVal e como System.EventArgs) Handles btn_createdb.Click

"Cuadro de diálogo Guardar

F Dim As New SaveFileDialog

f.Filter = "SQLite 3 (* db3.) | *. db3 | Todos los archivos |"

f.ShowDialog ()

'Crear base de datos

SQLCONNECT Dim As New SQLite.SQLiteConnection ()

"Base de datos no hace Existir lo Creado el Camino

SQLconnect.ConnectionString = "Data Source =" e "

SQLconnect.Open ()

SQLconnect.Close ()

End Sub



Crear las tablas de la base de datos y el nombre de la fila de encabezado.



Armar el resto de la estructura de la base de datos ejecutando la siguiente rutina VB:

F Dim As New OpenFileDialog

f.Filter = "SQLite 3 (* db3.) | *. db3 | Todos los archivos | *. *"

Si f.ShowDialog () = DialogResult.OK Entonces

SQLCONNECT Dim As New SQLite.SQLiteConnection ()

Dim SqlCommand Como SQLiteCommand

SQLconnect.ConnectionString = "Data Source =" e "

SQLconnect.Open ()

SqlCommand = SQLconnect.CreateCommand

'Consulta SQL para crear la tabla

SQLcommand.CommandText = "CREATE TABLE foo (id INTEGER PRIMARY AUTOINCREMENT KEY, título del texto, descripción de texto, BLOB imagen);"

SQLcommand.ExecuteNonQuery ()

SQLcommand.Dispose ()

SQLconnect.Close ()

End If

 

No hay comentarios:

Publicar un comentario