NomTheme = NomTheme.Replace("'","''") cmd.CommandText = "Insert into Theme values( '" & NomTheme & "' , " & desc & ") "
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questioncmd.CommandText = "INSERT INTO Theme (Colonne1, Colone2) VALUES ('" & NomTheme & "' , '" & desc & "')"
Et tu remplaces "Colonne1" et "Colonne2" par le nom de tes colonnes dans la BDD (attention aux majuscules)
Public Sub InserTable(ByVal mytext As String) Dim strsql As String = String.Empty 'la connection est faite dans une autre sub Dim command As New OleDbCommand(strsql, Connection) 'les [ ] de [text1?] important sinon cause une erreur command.CommandText = "INSERT INTO Table1 (columnname) VALUES ([text1?]);" command.Parameters.Add("text1?", OleDbType.BSTR).Value = mytext command.ExecuteNonQuery() Connection.Close() End Sub