maindirectory = "" : maindirectory = System.AppDomain.CurrentDomain.BaseDirectory
If Right(maindirectory, 1) <> "\" Then maindirectory = maindirectory + "\"
m_path =
"" : m_path = maindirectory + "database.db3"Dim m_con As SQLiteConnection = New SQLiteConnection
m_con.ConnectionString =
"Data Source=" & m_path & "; "
m_sqlstate =
"" : m_sqlstate = "SELECT * FROM table1"m_adapter = New SQLiteDataAdapter(m_sqlstate, m_con)
m_cmdbuilder =
New SQLiteCommandBuilder(m_adapter)m_dtbl = New DataTable
m_dtbl.Locale = System.Globalization.CultureInfo.InvariantCulture
m_adapter.Fill(m_dtbl)
GridView1.DataSource = m_dtbl
GridView1.DataBind()