Discussion :

[FarezaV]

Bonjour, je suis coincé,
je suis en train de compter des lignes dans des tables de ma base de donnée, et la il y a toujours cette erreur "sql logic error, no such table : Record" pourtant j'ai réouvert ma base de donnée avec sqlite et il y a bien le table Record,
voici le code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

merci d'avance

[ProgElecT]

Salut

Essais de mettre le nom de la table entre crochets

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Dim mycmd = New SQLiteCommand("select count(*) from [Record];", CON)

c'est pour cela qu'il faut éviter un maximum de nommer des variables, procédures ou fonctions avec des mots réserves.

[thovan]

Je pense aussi...
Utiliser une table "Record" me semble une mauvaise idée dans une base de donnée

[Phil Rob]

Bonjour,

Le champ "Resultat" que tu veux afficher n'existe pas.

Essaie donc ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
' ... ...
        Dim mycmd As SQLiteCommand =  New SQLiteCommand("select count(*) AS Resultat from Record;", CON)
' ... ...

ou bien affecte le résultat d'exécution à un Integer :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
' ... ...
        Dim mycmd As SQLiteCommand = New SQLiteCommand("select count(*) from Record;", CON)
        Dim Resultat As Integer = mycmd.ExecuteScalar
        MessageBox.Show(Resultat.ToString)
' ... ...