insert into ... Editer ou Ecraser

Question

salut
je veux fusioner deux base de donnes access avec insert into
Et Je veux un msgbox me questionne . Est-ce que je veux Écraser ou non ?
S'ils vous plais vite 
et merci en avance 
Et Dans La réponse je veux un langage facile car je ne suis pas un Francais
merci merci merci d'avance

NHenry · Answer

Bonjour, 

Pour poser correctement une question et optimiser vos chances d'obtenir des réponses, pensez à lire le règlement CS, celui-ci pour bien poser votre question ou encore celui-ci pour les PFE et autres exercices.

---------------------------------------------------------------------
[list=ordered][*]Pour poser correctement une question et optimiser vos chances d'obtenir des réponses, pensez à lire le règlement CS, celui-ci pour bien poser votre question ou encore celui-ci pour les PFE et autres exercices.[*]Quand vous postez un code, merci d'utiliser la coloration syntaxique (3ième icône en partant de la droite : ).[*]En VB.NET pensez à activer Option Explicit et Option Strict (propriété du projet) et à retirer l'import automatique de l'espace de nom Microsoft.VisualBasic (onglet Références dans les propriétés du projet).[*]Si votre problème est résolu (et uniquement si c'est le cas), pensez à mettre "Réponse acceptée" sur le ou les messages qui vous ont aidés/list
---
Mon site

mamas123 · Answer

merci 
mais est ce que j'ai une faute?? 
j'etais trés heureux quad j'ai votre réponse mais j'ai surpris  que c'est pour m'avertisser  

merci et j'attend une réponse pour ma question

NHenry · Answer

Bonjour, 

"S'ils vous plais vite"
On est des bénévoles, si tu es pressé, c'est pas notre problème.

"Je veux un msgbox"
Si tu veux, c'est que tu peux.

Qu'as-tu essayé ?

---------------------------------------------------------------------
[list=ordered][*]Pour poser correctement une question et optimiser vos chances d'obtenir des réponses, pensez à lire le règlement CS, celui-ci pour bien poser votre question ou encore celui-ci pour les PFE et autres exercices.[*]Quand vous postez un code, merci d'utiliser la coloration syntaxique (3ième icône en partant de la droite : ).[*]En VB.NET pensez à activer Option Explicit et Option Strict (propriété du projet) et à retirer l'import automatique de l'espace de nom Microsoft.VisualBasic (onglet Références dans les propriétés du projet).[*]Si votre problème est résolu (et uniquement si c'est le cas), pensez à mettre "Réponse acceptée" sur le ou les messages qui vous ont aidés/list
---
Mon site

mamas123 · Answer

AAAAAH Pardon

j'ai déja essayer aver ce code mais il ne marche pas
[code=vb]Set RS = Nothing
Set RS = New ADODB.Recordset
RS.Open "Select * From Table1", CN, adOpenDynamic, adLockOptimistic
For i = 1 To RS.RecordCount
Set RSS = Nothing
Set RSS = New ADODB.Recordset
RSS.Open "Select * From Table1 where N like '" & RS!N & "'", CN1, adOpenDynamic, adLockOptimistic
If RSS.RecordCount > 1 Then
Dim iResponse As String
iResponse = MsgBox("Vouler vous écraser " & RS!N, vbYesNoCancel + vbApplicationModal + vbDefaultButton3, "Ligue")

Select Case iResponse
    Case vbYes:
RSS![Prénom] = RS![Prénom]
RSS! = RS![Code]
RSS![Name] = RS![Name]
RSS![Taille] = RS![Taille]
RSS![Date de néssance] = RS![Date de néssance]
RSS![Lieu de néssance] = RS![Lieu de néssance]
RSS![Phone] = RS![Phone]
RSS![Diplôme 1] = RS![Diplôme 1]
RSS![E-mail] = RS![E-mail]
RSS![Adresse] = RS![Adresse]
RSS![DOM] = RS![DOM]
RSS![Profession] = RS![Profession]
RSS![Club actuel] = RS![Club actuel]
RSS![Niveau] = RS![Niveau]
RSS![Zone] = RS![Zone]
RSS![Ligue] = RS![Ligue]
RSS![fonction] = RS![fonction]
RSS![Quelle équipe] = RS![Quelle équipe]
RSS![N° Tel du Club] = RS![N° Tel du Club]
DoEvents
RSS.Update
RSS.Requery
    Case vbNo:
    RSS.AddNew
RSS![N] = "RE" & RS![N]
RSS![Prénom] = RS![Prénom]
RSS![Code] = RS![Code]
RSS![Name] = RS![Name]
RSS![Taille] = RS![Taille]
RSS![Date de néssance] = RS![Date de néssance]
RSS![Lieu de néssance] = RS![Lieu de néssance]
RSS![Phone] = RS![Phone]
RSS![Diplôme 1] = RS![Diplôme 1]
RSS![E-mail] = RS![E-mail]
RSS![Adresse] = RS![Adresse]
RSS![DOM] = RS![DOM]
RSS![Profession] = RS![Profession]
RSS![Club actuel] = RS![Club actuel]
RSS![Niveau] = RS![Niveau]
RSS![Zone] = RS![Zone]
RSS![Ligue] = RS![Ligue]
RSS![fonction] = RS![fonction]
RSS![Quelle équipe] = RS![Quelle équipe]
RSS![N° Tel du Club] = RS![N° Tel du Club]
DoEvents
RSS.Update
RSS.Requery
    Case vbCancel:
      ' Enter your code here
End Select
Else
    RSS.AddNew
RSS![N] = RS![N]
RSS![Prénom] = RS![Prénom]
RSS![Code] = RS![Code]
RSS![Name] = RS![Name]
RSS![Taille] = RS![Taille]
RSS![Date de néssance] = RS![Date de néssance]
RSS![Lieu de néssance] = RS![Lieu de néssance]
RSS![Phone] = RS![Phone]
RSS![Diplôme 1] = RS![Diplôme 1]
RSS![E-mail] = RS![E-mail]
RSS![Adresse] = RS![Adresse]
RSS![DOM] = RS![DOM]
RSS![Profession] = RS![Profession]
RSS![Club actuel] = RS![Club actuel]
RSS![Niveau] = RS![Niveau]
RSS![Zone] = RS![Zone]
RSS![Ligue] = RS![Ligue]
RSS![fonction] = RS![fonction]
RSS![Quelle équipe] = RS![Quelle équipe]
RSS![N° Tel du Club] = RS![N° Tel du Club]
DoEvents
RSS.Update
RSS.Requery
End If
DoEvents
RS.MoveNext
Next


désolé  désolé désolé désolé

mamas123 · Answer

J'utilise VB6

mamas123 · Answer

[^^sad1][^^confus2][^^huh]

NHenry · Answer

Bonjour, 

Si c'est du VB6, pourquoi avoir mit ta question dans .NET ?
Forum > VB.NET et VB 2005 > Base de données > Access
Je déplace

Select * From Table1 where N like '" & RS!N & "'

Pourquoi Like ? = c'est mieux, non ?
N est une chaine ? Si non, retire les ' en trop.

"j'ai déja essayer aver ce code mais il ne marche pas "
Peux-tu détailler ? (message d'erreur, comportement non désiré, ...)

Penses à indenter ton code.

---------------------------------------------------------------------
[list=ordered][*]Pour poser correctement une question et optimiser vos chances d'obtenir des réponses, pensez à lire le règlement CS, celui-ci pour bien poser votre question ou encore celui-ci pour les PFE et autres exercices.[*]Quand vous postez un code, merci d'utiliser la coloration syntaxique (3ième icône en partant de la droite : ).[*]En VB.NET pensez à activer Option Explicit et Option Strict (propriété du projet) et à retirer l'import automatique de l'espace de nom Microsoft.VisualBasic (onglet Références dans les propriétés du projet).[*]Si votre problème est résolu (et uniquement si c'est le cas), pensez à mettre "Réponse acceptée" sur le ou les messages qui vous ont aidés/list
---
Mon site

mamas123 · Answer

http://www.m5zn.com/out.php?code=85ac5f7d921d5de
http://www.m5zn.com/out.php?code=d24e0b75d72dedc

NHenry · Answer

Bonjour, 

Le message est clair pourtant, tu tentes de définir sur une colonne d'index, 2 valeurs identiques, donc il te jette, regardes la structure de ta base, au besoin, essayes de faire l'ajout à la main.

J'ai aussi eu ce problème sur une base altérée, Access tentait de définir 2 fois le même numéro auto-incrémenté à 2 lignes différentes, résolu en ajoutant assez de ligne pour se sortir de ce conflit.

---------------------------------------------------------------------
[list=ordered][*]Pour poser correctement une question et optimiser vos chances d'obtenir des réponses, pensez à lire le règlement CS, celui-ci pour bien poser votre question ou encore celui-ci pour les PFE et autres exercices.[*]Quand vous postez un code, merci d'utiliser la coloration syntaxique (3ième icône en partant de la droite : ).[*]En VB.NET pensez à activer Option Explicit et Option Strict (propriété du projet) et à retirer l'import automatique de l'espace de nom Microsoft.VisualBasic (onglet Références dans les propriétés du projet).[*]Si votre problème est résolu (et uniquement si c'est le cas), pensez à mettre "Réponse acceptée" sur le ou les messages qui vous ont aidés/list
---
Mon site

mamas123 · Answer

pouvez vous m&#8217;aider AVEC UN Exemple 
car je suis

mamas123 · Answer

merci j'ai déja comris le message
mais je ne difinis aucun clé

mamas123 · Answer

et ci vous voyer avec moi 
cette Erreur est dans le bouton "non" alors il faut l'écraser et ne pas crier une autre n'est-ce pas?

s'il  vous plais aider moi avec un simple Exemple

mamas123 · Answer

désole , je veux dire
que l'erreur est dans 

RSS.Open "Select * From Table1 where N like '" & RS!N & "'", CN1, adOpenDynamic, adLockOptimistic
If RSS.RecordCount > 1 Then
....
else
ici
 
alors normalement ca indique que

Quand il n ya aucun RS!N comme N dans La table1
tu pue faire l'ordre
alors comment il y a un doublons??

et pardonner moi de moi langage car je ne suis pas un français je suis un marocain

mamas123 · Answer

Ah oui Il est insérer j'ai pas vu l'index
il insérer avec succès mais il ne me questionne pas de écraser ou non

mamas123 · Answer

[^^sad1][^^confus2]

NHenry · Answer

Bonjour, 

Regardes dans la structure de ta table, tu dois avoir un champ de type index (propriété du champ), sans cela, il est difficile de répondre plus en détail.

---------------------------------------------------------------------
[list=ordered][*]Pour poser correctement une question et optimiser vos chances d'obtenir des réponses, pensez à lire le règlement CS, celui-ci pour bien poser votre question ou encore celui-ci pour les PFE et autres exercices.[*]Quand vous postez un code, merci d'utiliser la coloration syntaxique (3ième icône en partant de la droite : ).[*]En VB.NET pensez à activer Option Explicit et Option Strict (propriété du projet) et à retirer l'import automatique de l'espace de nom Microsoft.VisualBasic (onglet Références dans les propriétés du projet).[*]Si votre problème est résolu (et uniquement si c'est le cas), pensez à mettre "Réponse acceptée" sur le ou les messages qui vous ont aidés/list
---
Mon site

mamas123 · Answer

s'il te plais , please.

aider moi uvec un trés petit exemple

et je veux te dire que Vous êtes la seule personne qui aide ici
Félicitations 
J'espère que Dieu vous donne tout ce que vous voulez ...

mamas123 · Answer

je veux écrire un code pour s'il trouve le numéro répéter
me donne un MsgBox qui me questionne est-ce que je veux l'écraser ou le répéter mais avec un autre numéro ou-bien l'ignorer  

merciiiiiiiiiiiiiiiiii , tenez votre Temps

mamas123 · Answer

bonne nuit à demain

NHenry · Answer

Bonjour, 

Tu peux essayer avec un SELECT COUNT(*), plutôt qu'un SELECT *, ce sera plus rapide pour compter le nombre d&#8217;occurrence.

As-tu un exemple de lignes qui ne déclenchent pas la MessageBox alors qu'elle devrait ?

---------------------------------------------------------------------
[list=ordered][*]Pour poser correctement une question et optimiser vos chances d'obtenir des réponses, pensez à lire le règlement CS, celui-ci pour bien poser votre question ou encore celui-ci pour les PFE et autres exercices.[*]Quand vous postez un code, merci d'utiliser la coloration syntaxique (3ième icône en partant de la droite : ).[*]En VB.NET pensez à activer Option Explicit et Option Strict (propriété du projet) et à retirer l'import automatique de l'espace de nom Microsoft.VisualBasic (onglet Références dans les propriétés du projet).[*]Si votre problème est résolu (et uniquement si c'est le cas), pensez à mettre "Réponse acceptée" sur le ou les messages qui vous ont aidés/list
---
Mon site

Insert into ... Editer ou Ecraser

29 réponses

Votre réponse

Discussions similaires