base de données

Question

Slt, je veux prendre les données du champ A de la table1 et les transformer en champs dans une table B de la table2.
Quelqu'un a une idée dessus?Merci d'avance.
Je travaille avec des bases access.

jimy neutron · Answer

Salut,

Dim VALEUR As String

'Apres ouverture (OPEN) de la base

'Tu lis la table1
Sql1 = "select * from Table1"
Set Rs1 = DBase.OpenRecordset(Sql1, dbOpenDynaset)

 VALEUR = Rs1.Fields("A")
 
 Rs1.Close
 
' Tu ecris dans la table2
Sql2 = "select * from Table2"
Set Rs2 = DBase.OpenRecordset(Sql2, dbOpenDynaset)

Rs2.Fields("B")=VALEUR

Rs2.Update
Rs2.Close

ddove53 · Answer

Autant pour moi.Là ou j'ai écrit:"transformer en champs dans une table B de la table2." je  voulais écrire:"transformer en champs de la table2."c'est à dire les transformer enc olonne pour etre plus clair.

jimy neutron · Answer

Je pense que tu trouveras ton bonheur ici:
http://www.vbfrance.com/codes/CREATION-DUNE-BASE-DONNEE_33275.aspx

Il y a l'instruction de creation de champs.(CreateField.)

Jimy

jimy neutron · Answer

Donc:

Dim VALEUR As String 

'Apres ouverture (OPEN) de la base 

'Tu lis la table1 
Sql1 = "select * from Table1" 
Set Rs1 = DBase.OpenRecordset(Sql1, dbOpenDynaset) 

VALEUR = Rs1.Fields("A") 

Rs1.Close 

' Tu cree le champs dans la table2 
Sql2 = "select * from Table2" 
Set Rs2 = DBase.OpenRecordset(Sql2, dbOpenDynaset) 

Rs2.Fields.Append .CreateField(VALEUR , dbText)

Rs2.Update 
Rs2.Close

ddove53 · Answer

Avec ça j'ai une erreur de compilation:
réference incorrecte ou non qualifiée.
l'erreur est à ce niveau:
Rs2.Fields.Append .CreateField(VALEUR , dbText)

jimy neutron · Answer

Jimy

Pensez: Réponse acceptée
'**********************************************

jimy neutron · Answer

Il te manque la reference Microsoft DAO 3.6 Objet library

Jimy

ddove53 · Answer

Il faut le prendre d'ou?Comment le rajouter au niveau du proojet?

jimy neutron · Answer

Dans la barre de tache de VB6 / Projet -> References, rechercher "Microsoft DAO 3.6 Objet library " et cocher la case -> ok

et le tour est joué

Jimy

ddove53 · Answer

cette option était déjà coché, donc l'erreur ne vient pas de là

ddove53 · Answer

Au fait quand je fait "Append . ", rien ne m'est ^roposé, ni Createfield ni autre chose.

Base de données

11 réponses

Votre réponse

Discussions similaires