vb.net usando sqlite como base de datos, ¿qué hacer con los tutoriales que faltan?

Atenuar Nrsj como nuevo Data.SQLite.SQLiteConnection

Nrsj.ConnectionString = "Data Source=" amp;

"C:\SqliteDev\ Convert"

Pruebe

Nrsj.Open() 'Probar conexión a la base de datos

Captura ex como excepción

MsgBox.Open() 'Probar conexión a la base de datos

Captura ex como excepción

MsgBox(ex.Message)

salir sub

Finalizar intento

Dim Nr As New Data.SQLite.SQLiteCommand 'Definir operación SQL

Nr.Connection = Nrsj

Nr.CommandType = CommandType <. /p>

Dim iD_tJ como nuevo System.Collections.SortedList

Nr.CommandText = "seleccionar id, ruta desde archivo"

Dim Sj como Data.SQLiteDataReader

p>

Nr.Connection = Nrsj

Nr.CommandType = tipo CommandType. SQLiteDataReader = Nr.ExecuteReader

Mientras que Sj.Read

iD_tJ.Add(Sj(0), Sj(1))

Finalizar mientras

Sj.Close()

' Nr.Nr.CommandText = " seleccione Nr del archivo DONDE ruta=@Ruta"

Nr.CommandText = " seleccione Nr del archivo DONDE ID=@ID"

Dim Xrsj como nuevo Data.SQLite.SQLiteConnection

Xrsj.ConnectionString = "Data Source=" amp; _

System.Environment .GetFolderPath(Environment.SpecialFolder. Desktop) amp; "\MB.Bmy"

Pruebe

Xrsj.Open()

Capture ex como excepción

MsgBox(ex.Message)

Nr.Commandext = "seleccione Nr del archivo WHERE ID=@ID"