Discussion :

[chuspyto]

bonjour,
apres recherches dans differents forum je n' ai pas trouver de réponses a mes questions.
et il possible de restreindre le nombre d'enregistrements d'une table access a partir de vb net( limiter la table à 10 enregistrements, si tentative de depassement = message d'alerte).
via access voici le code,est il possible de l'adapter pour vb net:

Code :

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

1
2
3
4
if Me.CurrentRecord > 10 Then
    MsgBox "enregistrement autorisé atteint"
    Cancel = True
End If

peut on afficher avant enregistrement dans une table le nombre actuel d'enregistrement?

merci

[_Ez3kiel]

Et avec un Select Count(*) avant ta requête d'insertion ? Et tu testes que le résultat soit inférieur/égale à 10 ...

(Pourquoi vouloir faire ça en Vb.NET et pas dans la BDD ? )

[chuspyto]

j'ai essaye cela mais cela n'a pas l'air de fonctionné est ce que j'aurrai oublié quelquechose?

Code :

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

1
2
3
4
5
6
7
Dim enregistrement As integer = ("select count(*) from  {0}"), basdef)
            If enregistrement > 10 Then
                MsgBox("enregistrement atteint")
            End If
            SQLstr = String.Format("INSERT INTO  {0} (ChmAcc,Etiq) VALUES ('" & Recherche_AVI.Text & "','" & isole_nom(Etiq) & "') ", basdef)
 
            cnn.Close()

merci

[_Ez3kiel]

Code :

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

1
2
Dim enregistrement As integer = ("select count(*) from  {0}"), basdef)
            If enregistrement > 10 Then

Je ne comprend pas trop la syntaxe que tu utilises ...

Dans le doute je te propose plutôt celle que je connais (plus ou moins) ...

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
            Dim req As SqlCommand = New SqlCommand("select count(*) from " & basedef, cnn)
            Dim nbEnregistrement As Integer = CInt(req.ExecuteScalar)
 
            If nbEnregistrement > 10 Then
                MsgBox("enregistrement atteint")
            Else
                'ton traitement que je ne comprend pas : 
                SQLstr = String.Format("INSERT INTO  {0} (ChmAcc,Etiq) VALUES ('" & Recherche_AVI.Text & "','" & isole_nom(Etiq) & "') ", basdef)
 
            End If
 
            cnn.Close()

Et je réitère pourquoi traiter cela au niveau de l'appli et pas de la BDD ?

[chuspyto]

Dans la base de données je me retrouve avec des messages d erreur,pour cela que j'ai voulu essayé cela en vb net.
Pour info basdef prend le nom d une table en fonction de certaines condition(cases à cocher)

[_Ez3kiel]

Je me doute mais c'est la notion de remplacement de {0} par basedef que je ne connais pas... et le Dim enregistrement As integer = ("select count(*) from {0}"), basdef)

Mais j'insiste sur le fait que c'est à Access de traiter ca, lorsque tu auras plus de 10, il sortira une erreur, que tu catcheras dans ton appli pour informer l'user qu'il y a 10 enregistrements dans la table.