1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20
| Imports System.Data.SQLite
Imports System.IO
Public Class Form1
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
Dim CON As New SQLiteConnection
'
Try
CON.ConnectionString = "Data Source=D:\Ressources" & "based.db3"
CON.Open()
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
'
Dim mycmd = New SQLiteCommand("select count(*) from Record;", CON)
MessageBox.Show(mycmd.ExecuteScalar, _
"Resultat")
CON.Close()
End Sub
End Class |
Partager