MAJ BASE ACCESS

Question

Bonjour

et encore sur le m&#234;me probl&#232;me

j'ai touv&#233; sur le NET une solution &#224; 
-2147467259 (80004005) Key column information is insufficient or incorrect. Too may rows were 

mais j ene sais pas comment l'impl&#233;menter 

On dit de d&#233;finir une num&#233;ro auto incr&#233;ment&#233; et de l'aasigner comme PRIMARY KEY 

Voici mon code

D&#233;finition de la table


' ==========================================================================
' proc&#233;dure cr&#233;ation d'une table indic&#233;e par le num&#233;ro de course
' pour leur i course
' ==========================================================================



Public Sub Traitement_cr&#233;ation_table_course_indice(strNom_de_table As String, catalogue As ADOX.Catalog)


' On Error GoTo erreur_Traitement_cr&#233;ation_table_course_indice
            '
            Dim MaTable As ADOX.Table
            Set MaTable = New ADOX.Table
            MaTable.Name = strNom_de_table
            With MaTable
                .Columns.Append "attribut", adLongVarWChar
                .Columns.Append "nombre", adInteger
            End With
            
            catalogue.Tables.Append MaTable
            
            
Exit Sub
erreur_Traitement_cr&#233;ation_table_course_indice: ' traitement des erreurs
End Sub
 
 et maj ou cr&#233;ation de poste suivant le cas 

Public Sub Traitement_nombre_de_courses_total_course_indice_variable_creation(strNom_de_table As String, catalogue As ADOX.Catalog, sLibelle1 As String, sParametre As String, sLibelle2 As String, variable_transmis As String, sOrdre_select As String, strAttribut_table_cheval_type_enregistrement As String)


' On Error GoTo erreur_Traitement_nombre_de_courses_total_course_indice_variable_creation
            


            Dim MonJeuDenregistrement_table_cheval_type_enregistrement As New ADODB.Recordset
            
            'lie le recorset &#224; la connection
            MonJeuDenregistrement_table_cheval_type_enregistrement.ActiveConnection = MaConnection
            
            ' Interroge la base pour trouver l'enregistrement nombre de course
            Dim champ_table_cheval_type_enregistrement As Field
    
            ' variable i
            Dim i As Integer
       
            ' pour chaque champ dans un enregistrement dans le jeu d'engistrement pour toutes les courses d'un cheval
            '
            'MonJeuDenregistrement_table_cheval_type_enregistrement.Open "SELECT * FROM [" & strNom_de_table & "] WHERE [" & strNom_de_table & "].[attribut] = '" & sLibelle1 & " " & iNombre_de_courses_courues_nouveau_historique & sLibelle2 & " " & tvariable(sVariable) & "'", , adOpenDynamic, adLockOptimistic
            MonJeuDenregistrement_table_cheval_type_enregistrement.Open sOrdre_select, , adOpenDynamic, adLockOptimistic
             '
                If MonJeuDenregistrement_table_cheval_type_enregistrement.RecordCount > 0 Then
                Do While Not MonJeuDenregistrement_table_cheval_type_enregistrement.EOF
                    
                    For Each champ_table_cheval_type_enregistrement In MonJeuDenregistrement_table_cheval_type_enregistrement.Fields
                        Debug.Print champ_table_cheval_type_enregistrement.Name & "=" & champ_table_cheval_type_enregistrement.Value
                        If (champ_table_cheval_type_enregistrement.Name = "nombre") Then
                            If (champ_table_cheval_type_enregistrement.Value) Then
                                i = champ_table_cheval_type_enregistrement.Value
                            Else
                                i = 0
                            End If
                        MonJeuDenregistrement_table_cheval_type_enregistrement![nombre] = i + 1
                        MonJeuDenregistrement_table_cheval_type_enregistrement.Update
                        End If
                    Next
                MonJeuDenregistrement_table_cheval_type_enregistrement.MoveNext
                Loop
            Else
            ' sinon si non existence du poste dans la table
                MonJeuDenregistrement_table_cheval_type_enregistrement.AddNew
                'Dim strAttribut_table_cheval_type_enregistrement As String
                'strAttribut_table_cheval_type_enregistrement = sLibelle1 & " " & iNombre_de_courses_courues_nouveau_historique & sLibelle2 & " " & tVariable(sVariable)
                MonJeuDenregistrement_table_cheval_type_enregistrement![attribut] = strAttribut_table_cheval_type_enregistrement
                MonJeuDenregistrement_table_cheval_type_enregistrement![nombre] = 1
                MonJeuDenregistrement_table_cheval_type_enregistrement.Update
            End If
                        
            
    
            ' Ferme
            MonJeuDenregistrement_table_cheval_type_enregistrement.Close
     
            


Exit Sub
erreur_Traitement_nombre_de_courses_total_course_indice_variable_creation: ' traitement des erreurs
End Sub

 


borgeomibonjouuuuuuur !!!!!

Dalida · Answer

salut,



le probl&#232;me doit venir de la cr&#233;ation de ta Table avec ADOX car tu ne d&#233;finis pas de cl&#233; primaire.



pour cela il faut ajouter un ADOX.Index &#224; ta table, en param&#233;trant les propri&#233;t&#233;s suivantes :

Index.IndexNulls (AllowNullsEnum) 

Index.Name (String)

Index.PrimaryKey (Boolean)

Index.Unique (Boolean)

Index.Columns (ADOX.Columns)



tu ajoutes cet Index &#224; la collection d'Index de la Table,  cela se fait comme pour ADOX.Column.



par ailleurs, je te
conseille de banir d&#233;finitivement les caract&#232;res accentu&#233;s de ton code
(hormis les commentaires,bien s&#251;r !), c'est le genre de d&#233;tail qui peut
te faire perdre des heures enti&#232;res &#224; retrouver une erreur
inexplicable...

par encore ailleurs,  pour la r&#233;daction des messages, conforme-toi aux prescriptions du site (titre explicite, langage, version...), le r&#233;glement est ici.




[ Dalida ]<hr>
pensez &#224; indiquer la version du language

MAJ BASE ACCESS

1 réponse

Discussions similaires