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.

[Pol63]

tu ne dois pas nous avoir mis le vrai code que tu utilises, ou alors il manque une clause de sortie (ou un else comme le propose _Ez3kiel)

Code :

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

1
2
3
4
5
6
if nb > 10 then 
   msgbox
   exit sub ' si on ne met pas exit sub, ce qui est après le if est exécuté
end if
 
insert

Mais j'insiste sur le fait que c'est à Access de traiter ca

je serais curieux de savoir comment on peut faire ca hors du programme ...

en tout cas il n'est pas rare de mettre des restrictions dans un programme

[_Ez3kiel]

Sous access je ne sais pas, hormis en définissant un max sur les séquences de la PK de la table ... (<=10)

[Pol63]

alors pour info access ce n'est pas un vrai moteur de base de données, on ne peut rien faire de spécial dessus ^^

[Rainui]

alors pour info access ce n'est pas un vrai moteur de base de données, on ne peut rien faire de spécial dessus ^^

C'est pas tout à fait vrai :
On peut galérer pendant des heures avant de comprendre qu'il vaudrait mieux passer à autre chose

[_Ez3kiel]

On m'a toujours dit que c'était très (très très très) limité, mais je pensais que ça avait évolué un peu depuis, ou que ça l'était pas tant que ça ...

Maintenant je saurais.

[rv26t]

Bonjour,

@_Ez3kiel
Ils essayent de le faire progresser
Seulement il manque un : "Avant insert"; et c'est ça qui serait utile à chuspyto
Sinon les SGBD ont effectivement les Triggers.

@_Ez3kiel (suite)
Ou on écrit une concaténation de chaine avec &

Code :

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

SQLstr = "INSERT INTO " & basdef & " (ChmAcc,Etiq) VALUES ('" & Recherche_AVI.Text & "','" & isole_nom(Etiq) & "')"

ou on ecrit

Code :

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

SQLstr = String.Format("INSERT INTO {0} (ChmAcc,Etiq) VALUES ('{1}','{2}')", basdef, Recherche_AVI.Text, isole_nom(Etiq))

mais

Code :

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

            SQLstr = String.Format("INSERT INTO  {0} (ChmAcc,Etiq) VALUES ('" & Recherche_AVI.Text & "','" & isole_nom(Etiq) & "') ", basdef)

un mixte des 2
________________________________________________

Sinon, il est préférable d'utiliser les requêtes paramètrées.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
            Using cnn As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=......")
                cnn.Open()
                If Integer.Parse(New OleDbCommand("select count(*) from " & basdef, cnn).ExecuteScalar) > 10 Then
                    MsgBox("enregistrement atteint")
                Else
                    Dim myCommand As OleDbCommand = New OleDbCommand(String.Format("INSERT INTO {0} (ChmAcc,Etiq) values (?,?)", basdef), cnn)
                    myCommand.Parameters.Add(New OleDbParameter("@ChmAcc", OleDbType.VarChar, 4))
                    myCommand.Parameters.Add(New OleDbParameter("@Etiq", OleDbType.VarChar, 25))
                    myCommand.Parameters("@ChmAcc").Value = Recherche_AVI.Text
                    myCommand.Parameters("@Etiq").Value = isole_nom(Etiq)
                    myCommand.ExecuteNonQuery()
                End If
                cnn.Close()
            End Using

Mais la meilleure blague avec access, c'est qu'il ne tiend pas compte des noms des paramètres, il les prend dans l'ordre de définition dans la requette. (si je les avais appelé "Id" et "Lib" cela aurait aussi fonctionné. Ca c'est un piége)

[_Ez3kiel]

Pourquoi il manque forcément celui qui est le plus utilisé ?

Je ne savais pas pour le String.Format() merci de l'info.

Et pour la petite info sur les requêtes paramétrées, je confirme que c'est la même chose pour les requêtes paramétrées envers Oracle (11g), seul l'ordre de définition lui importe...