Discussion :

[chelguera]

Bonjour, me revoilà avec mon insert into

J'ai créé une table "Personnes" avec un seul champ nommé Noms de type texte court (non inedexé et doublons autorisés)
et IMPOSSIBLE d'y inserer ne fut ce qu'un enregistrement ?

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
 
Public Sub TEST()
  Dim tmp As String
  Dim Rst As Recordset
  Dim strSQL As String
  Dim BD_Path, strFileName, strPass As String
  BD_Path = App.Path & "\MABASE.mdb"
   Set DB = OpenDatabase(BD_Path, False, False)
   strSQL = "INSERT INTO Personnes ( Nom) values ('moi')"  >>>   strsql contient : "INSERT INTO Personnes ( Nom) values ('moi')"
  Set Rst = DB.OpenRecordset(strSQL, dbOpenDynaset)
 
End Sub

[chelguera]

Désolé, faute de frappe, le champ est bien "nom" sans le S...

[umfred]

ton fichier a été enregistré ?
et sauf erreur de ma part, OpenRecordSet ne s'utilise pas avec une requête INSERT
il faut plutôt utiliser DB.Execute(sqlString)

Le recordSet avec un SELECT * FROM Personnes te permet d'ajouter des éléments avec les méthodes de recordset (addnew, etc)
https://learn.microsoft.com/en-us/of...new-method-dao

Si tu utilises la même méthode dans ton autre sujet(a priori c'est le cas, vu son message #6 sur lequel je n'ai pas tilté), cette réponse te sera aussi utile.

[chelguera]

ok merci, j'essayera cette solution demain première heure et merc d'avance
Bonne soirée

[chelguera]

Je n'ai pas pu attendre demain mais alors là, je n'ycomprends plus rien du tout

Revenons si tu veux bien à ma BD avec une table NOM qui contient un seul champ qui est NOM de type texte court
et le lien de microsoft ne m'a pas vraiment éclairé (loin de là)

Comment je fais ?
Juste pou rentrer un nom ?

ps mes questions sont con je sais mais suite à un AVC j'ai perdu pas mal de connaissances et j'essaye de revenir à la normale ce qui est frustrant et te dis pas combien de pc ont dejà
étés à la poubelle mais ils insistent pour que je persévère

Si tu as la patience, pourais tu me fournir un exemple avec 2 champs dans la table "historique"

DATE format date genéral
Montant type single avve 2 decimales
et la date devrait etre NOW

D'avance merci de ta patience et ton aide

Avant cette merde, j'étais senior analyste programmeur et là, je sais à peine manger seul

[umfred]

Si tu veux utiliser le RecordSet, ça fonctionnerai comme ça:

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
Dim tmp As String
  Dim Rst As Recordset
  Dim strSQL As String
  Dim BD_Path, strFileName, strPass As String
  BD_Path = App.Path & "\MABASE.mdb"
  Set DB = OpenDatabase(BD_Path, False, False)
  strSQL = "SELECT * FROM Personnes"
  Set Rst = DB.OpenRecordset(strSQL, dbOpenDynaset)
  With Rst
      .AddNew
      !NOM="moi"
      .Update
  End With
  ...
  Rst.Close
  DB.Close

Sinon avec des requêtes SQL, ça devrait être comme ça (si je ne me trompe pas trop)

Code :

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

1
2
3
4
5
6
7
8
9
10
Dim tmp As String
  Dim Rst As Recordset
  Dim strSQL As String
  Dim BD_Path, strFileName, strPass As String
  BD_Path = App.Path & "\MABASE.mdb"
   Set DB = OpenDatabase(BD_Path, False, False)
   strSQL = "INSERT INTO Personnes ( Nom) values ('moi')"  >>>   strsql contient : "INSERT INTO Personnes ( Nom) values ('moi')"
   DB.Execute(strSQL)
   ...
   DB.Close