Discussion :

[alex61]

bonjour

j'ai créé une procédure qui devrait insérer des donné dans une table spécifié avec une clé primaire généré : nombre de ligne +1

la voici :

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
21
22
23
24
    Public Sub insererBDD_EPI(ByVal NomEntreprise As String, ByVal type As String, ByVal norme As String, ByVal marque As String, ByVal modele As String, ByVal NumMarquage As String, ByVal annee As String, ByVal dureedevie As String, ByVal resultat As String, ByVal observation As String)
        ' connexion
        Dim cn As New OleDbConnection
        cn = connexionBDD()
        ' generer le code 
        Dim cmdcount As New OleDbCommand
        cmdcount.CommandText = " select count(epi_code) from epi where ent_nom ='" & NomEntreprise & "'"
        cmdcount.Connection = cn
        cmdcount.Connection.Open()
        Dim nb As Integer
        nb = cmdcount.ExecuteNonQuery
        cmdcount.Connection.Close()
        Dim code As String = nb + 1
 
        'insertion 
 
        Dim cmd As New OleDbCommand
        cmd.CommandText = " Insert into EPI (ent_nom,epi_code,epi_type,epi_norme,epi_marque,epi_modele,epi_NumMarquage,epi_AnneeMarquage,epi_dureedevie,epi_resultat,epi_obsevation) values (' " & NomEntreprise & "','" & code & "','" & type & "','" & norme & "','" & marque & "','" & modele & "','" & NumMarquage & "','" & annee & "','" & dureedevie & "','" & resultat & "','" & observation & "')"
        cmd.Connection = cn
        cmd.Connection.Open()
        cmd.ExecuteNonQuery()
        cmd.Connection.Close()
 
    End Sub

mais ca m'affiche :

Modifications non effectuées: risque de doublons dans champs index, clé principale ou relation interdisant les doublons. Modifiez les données des champs contenant les doublons, enlevez ou redéfinissez l'index pour permettre les doublons et recommencez.

dans mon idée visual studio 2005 n'aime pas que je génère la clé primaire comme ca
il n'existerai pas un moyen de désactivé l'exception
un truc du genre exception.close ( ca serait trop bien )

cordialement

[sinople]

Il y a 2 trucs qui sont pas au top dans ton truc.

1: Si l'on efface un enregistrement, il y a effectivement un risque de doublon. Sauf si on efface toujours depuis l'enregistrement avec le compteur le plus grand (Grosse contrainte à la con...)

2: Il n'y a pas de transaction, lock, sur ta table ce qui signifie que 2 personnes peuvent enregistrer avec le même identifiant en même temps.

Utilise une transaction avec le lock qui va bien pour encapsuler les 2 requêtes.
Utilise un select max(clef)+1 au lieu d'un count, ceci simule un champ compteur sous access en fait (pas tout à fait mais presque).

Le principal interet pour faire ceci c'est de retrouver la ligne et son identifiant dans le dataset sans se prendre la tête.

Au final ton erreur est une exception lancée par le moteur de la base de donnée donc le seul moyen de ne pas la voir et d'enlever la contrainte sur la base...

[alex61]

oué j'avais pas penser a la suppression vu que normalement personne ne doit supprimer de chose de cette base ( mais vaut mieux prévoir c'est vrai )

je test le max(primarykey)

[alex61]

je n'arrive pas a récupérer le résultat du select

Code :

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

1
2
3
4
5
6
7
8
9
10
11
        Dim cmdcount As New OleDbCommand
        cmdcount.CommandText = " select max(epi_code) from epi where ent_nom ='" & NomEntreprise & "'"
        cmdcount.Connection = cn
        cmdcount.Connection.Open()
        Dim nb As String
        nb = cmdcount.ExecuteNonQuery
        Dim reader As OleDbDataReader = cmdcount.ExecuteReader()
        nb = reader(0).ToString()
        reader.Close()
        cmdcount.Connection.Close()
        Dim code As String = nb + 1

ca me met

Aucune donnée n'existe pour la ligne/colonne.

[Geo2A]

Bonjour,

Utiliser une fonction Max() avec un type string .... hum
Générer une clef primaire sur un type String pas bonne pratique.

Petite remarque pour la lisibilité il est tout de même mieux de mettre les commande SQL en majuscule.

[sinople]

Ouh bien vu le coup de la String...

En effet Max va fonctionner que sur des nombres.

Vu que ta colonne est un string tu peux passer par la génération d'un GUID aussi (c'est même mieux selon l'avis de certains) Ou alors tu transforme la colonne en numérique (Entier, pas à virgule!).

Sur les GUID

http://msdn.microsoft.com/en-us/libr...d.newguid.aspx

En gros c'est une fonction qui te génère une chaîne unique (c'est à dire que en théorie la fonction ne renvoie jamais 2 fois le résultat (enfin si mais avec une probablité très très faible, même sur des machines différentes). Parfait pour un identifiant!

Met quand même un test pour gérer le cas ou il y a un doublon (même si t'as plus de chance de gagner quelque fois à l'euromillion avant que ça arrive...)

P.S. Pour les requêtes qui envoie 1 colonne et 1 Ligne (Une valeur en résumé) on peut utiliser le .ExecuteScalar à la place d'un datareader.