Controler une table dans access

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:

---

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

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 ? :? )

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

Code:

---

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

Citation:

---

Envoyé par chuspyto

Code:

---

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:

---

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 ?

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)

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.

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:

---

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

---

Citation:

---

Envoyé par _Ez3kiel

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

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

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 ^^

Citation:

---

Envoyé par 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 ^^

---

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

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.

Bonjour,

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

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

Code:

---

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

---

ou on ecrit

Code:

---

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

---

mais

Citation:

---

Envoyé par chuspyto

Code:

---

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

---

---

un mixte des 2 :aie:
________________________________________________

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

Code:

---

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)

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

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

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... :roll: