[VB6] Problème de création de table dans une bdd accessRésolu

Question

Bonjour,



J'ai un probl&#232;me assez emb&#234;tant. Lorsque je cr&#233;e une table dans ma bdd
access &#224; partir du code VB j'ai une erreur alors que si j'ex&#233;cute la
m&#234;me requ&#234;te directement dans access elle fonctionne.



Voici ma requ&#234;te :



CREATE TABLE wxt510(Heure datetime,WD varchar(7),AVE_WD
varchar(7),MIN_WD varchar(7),MAX_WD varchar(7),WS varchar(7),AVE_WS
varchar(7),MIN_WS varchar(7),MAX_WS varchar(7),RA varchar(7),AVE_RA
varchar(7),MIN_RA varchar(7),MAX_RA varchar(7),HA varchar(7),AVE_HA
varchar(7),MIN_HA varchar(7),MAX_HA varchar(7),AT
varchar(7),AVE_TA varchar(7),MIN_TA varchar(7),MAX_TA varchar(7),GT
varchar(7),AVE_GT varchar(7),MIN_GT varchar(7),MAX_GT varchar(7),HU
varchar(7),AVE_HU varchar(7),MIN_HU varchar(7),MAX_HU varchar(7),PR
varchar(7),AVE_PR varchar(7),MIN_PR varchar(7),MAX_PR varchar(7))

J'ai trouv&#233; d'ou provenait l'erreur, c'est le nom du champs "AT" qui ne lui plait pas.

En le changeant et en mettant par exemple "TA" &#231;a marche dans les deux cas.



Pourquoi cela passe-t-il dans access et nom &#224; partir du code VB???

Cela m'emb&#234;te beaucoup, c'est g&#234;nant quand m&#234;me.



Quelqu'un a-t-il une r&#233;ponse et/ou une solution &#224; me fournir?



Merci

PCPT · Accepted Answer

salut
essaie de mettre AT entre crochets [AT]
PCPT

yuri1961 · Answer

Bjr!

Quel est ton Vb et ta connexion a BD (DAO, ADO etc.)

chez moi sous Vb6 et DAO cela marche



db.Execute TaRequete



Tache de Replacer varchar en Text

lefoimpeur · Answer

Je suis en ADO, voici ma fonction compl&#232;te:



Public Function ajouterTable(newStation As strucStation) As Boolean

  Dim cmdBdd As ADODB.Command

  Dim ouvert As Boolean

  Dim i As Integer

  Dim requete As String

  Dim grandeurs() As strucGrandeur

  

  grandeurs = getGrandeurs

  'Si la base de donn&#233;e est ferm&#233;e on l'ouvre

  If cnxBdd.State = adStateOpen Then

    ouvert = True

  Else

    If ouvrirBdd Then

      ouvert = True

    Else

      ouvert = False

    End If

  End If

  

  'Ajout de la nouvelle table si la base de donn&#233;es est ouverte

  'et que le nom choisi pour celle-ci n'existe pas

  If ouvert And lireNomStation(newStation.nom) Then

    Set cmdBdd = New ADODB.Command

    cmdBdd.ActiveConnection = cnxBdd

    cmdBdd.CommandType = adCmdText

    'Cr&#233;ation d'une nouvelle table dans la base de donn&#233;es

    requete = "CREATE TABLE " & newStation.nom & "(Heure datetime"

    For i = 0 To newStation.nbMesures - 1

      requete = requete & "," & _

      grandeurs(i).champs & " varchar(7)" & _

      ",AVE_" & grandeurs(i).champs & " varchar(7)" & _

      ",MIN_" & grandeurs(i).champs & " varchar(7)" & _

      ",MAX_" & grandeurs(i).champs & " varchar(7)"

    Next

    requete = requete & ")"

    cmdBdd.CommandText = requete

    cmdBdd.Execute

    Set cmdBdd = Nothing

    ajouterTable = True

  Else

    ajouterTable = False

  End If

End Function

lefoimpeur · Answer

Ok, merci bien.

J'essaie ca demain dans ce cas car je suis rentr&#233; du boulot l&#224; ;)

lefoimpeur · Answer

Merci beaucoup PCPT!!!!

Ta solution fonctionne &#224; merveille, c'est vraiment bien sympathique de ta part :)



Encore MERCI

[VB6] Problème de création de table dans une bdd access

5 réponses

Discussions similaires