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